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SILICON COMPOSERS INC 



FAST Forth Native-Language Embedded Computers 




Harris RTX 2000 tm 16-bit Forth Chip 

•8 or 10 MHz operation and 15 MIPS speed. 

• 1-cycle 16x16 = 32-bit multiply. 
•1-cycle 14-prioritized interrupts, 
•two 256-word stack memories. 
•8-channel I/O bus & 3 timer/counters. 

SC/FOX PCS (Parallel Coprocessor System) 
•RTX 2000 industrial PGA CPU; 8 & 10 MHz. 
•System speed options: 8 or 10 MHz. 
•32 KB to 1 MB 0-wait-state static RAM. 
•Full-length PC/XT/AT plug-in (6-layer) board. 

SC/FOX VME SBC (Single Board Computer) 
•RTX 2000 industrial PGA CPU; 8, 10, 12 MHz. 
•Bus Master, System Controller, or Bus Slave. 
•Up to 640 KB 0-wait-state static RAM, 
•233mm x 160mm 6U size (6-layer) board. 

SC/FOX CUB (Single Board Computer) 
•RTX 2000 PLCC or 2001 A PLCC chip. 
•System speed options: 8, 10, or 12 MHz. 
•32 KB to 256 KB 0-wait-state SRAM. 

• 100mm by 100mm size (4-layer) board. 

For additional product information and OEM pricing, please contact us at: 
SILICON COMPOSERS INC 208 California Avenue, Palo Alto, CA 94306 (415) 322-8763 



SC32 lm 32-bit Forth Microprocessor 

•8 or 10 MHz operation and 15 MIPS speed. 
•1-clock cycle instruction execution. 
•Contiguous 16 GB data and 2 GB code space. 
•Stack depths limited only by available memory. 
•Bus request/bus grant lines with on-chip tristate. 

SC/FOX SBC32 (Single Board Computer32) 

•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 
•32 KB to 512 KB 0-wait-state static RAM. 

• 100mm by 160mm Eurocard size (4-layer) board. 

SC/FOX PCS32 (Parallel Coprocessor System32) 
•32-bit SC32 industrial grade Forth PGA CPU. 
•System speed options: 8 or 10 MHz. 
•64 KB to 1 MB 0-wait-state static RAM. 
•Full-length PC/XT/AT plug-in (6-layer) board. 

SC/FOX SBC (Single Board Computer) 
•RTX 2000 industrial grade PGA CPU. 
•System speed options: 8, 10, or 12 MHz. 
•32 KB to 512 KB 0-wait-state static RAM. 

• 100mm by 160mm Eurocard size (4-layer) board. 
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Universal Control Structures 

Kevin Haddock 

Forth's execution control can be difficult to learn, and control structures can be an area of concern 
even for the enlightened. Forth has all the advantages of an interpreted language like BASIC but, 
again, the control structures get in the way. 

One thing that creates difficulty with Forth, compared to C, is eliminating unnecessary tests: If any 
one of a series of ANDed conditions is not true, there is no need to waste time extracting and 
evaluating subsequent conditions. This article attempts to provide an integrated solution that is 
uniform, clean, simple, and Forth-like. 

Neural Network Words 

Tim Hendtlass 

Neural networks are good at certain tasks the human brain is good at, like pattern recognition, often 
outperforming traditional computing techniques. A neural network is an interconnection of special 
processing elements that Is based on the brain; each element has inputs and outputs, and is termed 
a "neurone." Neurones are arranged in logical layers, and a collection of such layers comprises a 
network. 

The code in this article allows construction of a class of simulated networks, and their training by 
the widely used technique called "back propagation." It is portable to many environments, and 
other training techniques may be incorporated. (The second of two articles.) 

Ada Multiprocessor Real-Time Kernel 

HoytA. Stearns, Jr. 

A fully pre-emptive, priority driven, multiprocessing real-time kernel is required in certain 
applications, and the Ada rendezvous method is simple, straightforward, and elegant. Ada 
multitasking will work on multiple processors or on a single processor. A task can be local to a 
particular processor, or can be distributed. 

The listing is the kernel for a system with three processors, but the kernel works fine on a single- 
processor system. 
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A last reminder: FD has 
A-X announced a call for 
papers about object-orient- 
ed programming. The clos- 
ing date is September 16 for 
prize consideration — see our 
ad on page 37 for prize infor- 
mation, and refer to the edi- 
torial in issue XIII/1 for other 
details that may be helpful 
when preparing your paper. 
(Papers received after the 
deadline will still be evaluated 
for publication.) 

So, Why Don't You 
Write? 

FD is also looking for 
many new articles from its 
readers to fill the editorial 
coffers. This is, after all, a 
reader-written publication — 
this means you! We are look- 
ing for a wide range of top- 
ics, as eclectic as our read- 
ership. Chances are, if you 
find something interesting, 
clever, or challenging, many 
others will, too. If you aren't 
sure, just drop me a note that 
outlines the idea, and I will 
try to give meaningful feed- 
back to you. (And check out 
our "Author Recognition 
Program," details of which 
are reprinted on page 35.) 

If you aren't sure if your 
idea is really a new one, or 
can't remember whose origi- 
nal work it derives from — to 
say nothing of the times when 
you wonder whether the 
blank wall you've been 
staring at has been scaled 
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already by some other Forth 
explorer — there are some 
FIG reference tools you might 
want to get. Look on the FIG 
Mail Order Form for the 
"We're Sure You Wanted to 
Know..." series. The Forth 
Bibliography from Rochester 
also provides Forth reference 
information from outside the 
FIG domain, but hasn't been 
updated since January 1987. 
Get a copy anyway for an 
inspirational look at how 
much Forth material really 
has been circulating through 
the years. 

Chinese 
National Exam of 
Forth Programmers 

China has officially an- 
nounced a national exami- 
nation to be held in Septem- 
ber. Great importance is of- 
ten attached to the results of 
such examinations. As Dr. 
Ting relates, the Chinese love 
examinations, a tradition of 
2000 years. For your interest, 
following is a translation of 
part of the announcement: 

To accelerate the appli- 
cation of Forth in various 
technical fields, to enlarge 
the ranks of Forth program- 
mers, to raise the expertise in 
the Forth language, and to 
satisfy the increasing need 
for Forth users, the Chinese 
Scientific Instrumentation 
Society, the Chinese Software 
Association, and the Chinese 
Forth Interest Group will 



jointly sponsor a National 
Examination of Forth Pro- 
grammers on September 8, 
1991 in various provinces 
and cities across China. The 
sponsors will grant certifi- 
cates to programmers pass- 
ing this examination. They 
will also select the best ten 
Forth programmers and thirty 
excellent Forth programmers, 
based on the examination, 
to receive special certificates 
and awards, to be recom- 
mended to participate in 
Forth projects, and to carry 
out advanced studies abroad. 

Subjects of Examination 

1. Computer Fundamentals 
(20%) 

Number systems and 
conversions 

Internal representations of 
numbers 

Major components in a 
computer and their rela- 
tionships 

Instructions and instruc- 
tion sets 

Characteristics and func- 
tions of registers 
Characteristics and pro- 
perties of I/O devices 
Data structures (stacks 
and lists) 

Operating system funda- 
mentals 

Software engineering 
fundamentals 

2. Elementary Knowledge of 
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Published by the 
Forth Intarast Group 

Editor 
Marlin Ouverson 

Circulation/Order Desk 
Anna Brereton 

Forth Dimensions welcomes 
editorial material, letters to the 
editor, and comments from its 
readers. No responsibility is as- 
sumed for accuracy of su bmissions. 

Subscription to Forth Dimen- 
sionsis included with membership 
in the Forth Interest Group at $40 
per year ($52 overseas air). For 
membership, change of address, 
and to su bmit items for publication, 
the address is: Forth Interest Group, 
P.O. Box 8231 , San Jose, California 
95155- Administrative offices: 408- 
277-0668. Fax: 408-286-8988. Ad- 
vertising sales: 805-946-2272. 

Copyright © 1991 by Forth In- 
terest Group, Inc. The material 
contained in this periodical (but 
not the code) is copyrighted by the 
individual authors of the articles 
and by Forth Interest Group, Inc., 
respectively. Any reproduction or 
use of this periodical as it is com- 
piled or the articles, except repro- 
ductions for non-commercial pur- 
poses, without the written per- 
mission of Forth Interest Group, 
Inc. is a violation of the Copyright 
Laws. Any code bearing a copyright 
notice, however, can be used only 
with permission of the copyright 
holder. 

The Forth Interest Group 
The Forth Interest Group is the 
association of programmers, 
managers, and engineers who 
create practical, Forth-based 
solutions to real-world needs. Many 
research hardware and software 
designs that will advance the 
general state of the art. FIG provides 
a climate of intellectual exchange 
and benefits intended to assist each 
of its members. Publications, 
conferences, seminars, tele- 
communications, and area chapter 
meetings are among its activities. 

"Forth Dimensions (ISSN 0884- 
0822) is published bimonthly for 
$40/46/52 per year by the Forth 
Interest Group, 1330 S. Bascom 
Ave., Suite D, San Jose, CA 95128. 
Second-class postage paid at San 
Jose, CA. POSTMASTER: Send 
address changes to Forth 
Dimensions, P.O. Box 8231, San 
Jose, CA 95155." 
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Letters to the Editor— and to your fellow readers — are always welcome. 
Respond to articles, describe your latest projects, ask for input, advise 
the Forth community, or simply share a recent insight. Code is also 
welcome, but is optional. Letters may be edited for clarity and length. 
We want to hear from you! 



Black-Belt Exhaustion 
& Lean, Mean FIG 

Dear Phil Koopman, Jr.: 

I was sorry to hear that 
you decided to drop your 
FIG membership [see¥D XIH/ 
2J. You are one of the very 
visible and highly acclaimed 
Forth programmers. It is a 
great loss to FIG, not having 
you continue your member- 
ship. 

You correctly pointed out 
that FIG is having financial 
troubles. The main problem 
I see is that we have been 
losing members since 1984, 
when the membership 
peaked at about 4,500. The 
current membership of about 
2000 cannot support the op- 
eration of FIG using a profes- 
sional support organization 
like ADC. 

The membership loss has 
puzzled me all these years. 
There are more computers, 
more users, but why is FIG 
getting leaner and leaner? 
We have tried many differ- 
ent things to attract more 
new members, as well as to 
keep the old ones, but noth- 
ing seemed to work. There 
were substantial improve- 
ments on the appearance 
and substance in FD. We put 
lots of effort into getting the 
GEnie Forth RoundTable 



going. We had gone out of 
our way to promote Forth to 
the outside, but to no avail. 
Harris put in great amounts 
of money and energy to pro- 
mote Forth, and even as- 
sembled a very high-pow- 
ered team of Forth black- 
belts, including yourself, to 
develop the turbo-charged 
Forth engines. Why did Har- 
ris abandon its efforts? I re- 
ally hope that somebody will 
tell me what's going on and 
what we have to do to change 
the public perception of the 
inadequacies of Forth and 
FIG. 

FIG has always been an 
organization of volunteers. 
The founders of FIG expend- 
ed great energy to craft fig- 
Forth, which propelled FIG 
into a viable association. 
Other members like Mike 
Perry, Henry Laxen, Bob 
Smith, and Tom Zimmer 
improved on fig-Forth and 
contributed F83 and F-PC, 
which have kept FIG going. 
I am fully aware of your 
contributions to Forth, in 
MVP-FORTH and the WISC 
technology. However, may I 
ask what you have contrib- 
uted to FIG as a member? 
You complained that there is 
not a FIG chapter in your 
area. Every chapter is started 



by somebody; have you 
considered starting one 
yourself? You certainly have 
the capability, the energy, 
and the charisma to lead a 
large group and to teach lots 
of newcomers. Maybe the 
reason that FIG is shrinking 
is due to the exhaustion of 
leaders like you? 

I had not served on the 
FIG Board of Directors until 
last year. However, I have 
regularly attended the busi- 
ness meetings and watched 
FIG's operations for ten years. 
One thing I can say for the 
Board is that every dollar is 
accounted for and the records 
are kept accurately. All ex- 
penses are openly discussed 
and must be approved at 
these meetings. The books 
are available at the FIG office 
for members to inspect. Forth 
Dimensions will also be 
publishing financial reports. 
[See the President's Letter in 
this issue. — Ed J 

I appreciate that you took 
the trouble to write and tell 
us what you think of FIG. I 
fully understand your frus- 
tration, and respect your 



decision not to continue your 
membership. However, I 
think the greatest challenge 
we Forth programmers all 
face is not just to survive the 
onslaught of C and Unix, but 
to pool our resources together 
and find the niche where 
Forth can still grow and shine. 

Let me repeat an ancient 
Chinese story to make my 
point. The King of Tsu met 
an old man, crying in the 



countryside. He asked the 
old man why he was crying. 
The old man said, "I pre- 
sented this piece of rock to 
your grandfather because it 
contains a large jade. Your 
grandfather let his jade ex- 
pert inspect it, and he said, 
'It's just a stone.' So, your 
grandfather cut off my right 
leg. Then I presented it to 
your father. Your father had 
it inspected, and he cut off 
my left leg. I cannot walk any 
more. Then Heaven brought 
you here so I can see you. 
Here is the rock. It's yours, if 
you can use it." The King of 
Tsu ordered his jade worker 
to saw it open and found the 
largest and the most beauti- 
ful jade ever seen in China. It 
was from this jade that the 
First Emperor of China made 
his imperial seal. 

Forth is like this piece of 
jade in a rock. We know it is 
the best tool for human be- 
ings to control computers. 
We tried to . give it to the 
world, but what did we get 
back? Both feet cut off. What 
can we do? I think all we can 
do is stick together, keep 
warm, and keep the pot 



stirred. If Forth is really that 
good, it will shine eventu- 
ally. When? I do not think 
anybody knows. FIG is the 
only place where we can 
keep ourselves warm. 

Dr. C.H. Ting 

San Mateo, California 

Mastering 
Metacompilation 

Dear Editor, 

Metacompilation is get- 



There's no reason why 
metacompilers should be hard 
to learn, use, or understand... 



Forth Dimensions 



5 



September 1991 October 



PROCEEDINGS 



ting a bum rap. 

Recent postings on GEnie, 
and an item by Dr. C.H. Ting 
in Forth Dimensions ("How 
Metacompilation Stops the 
Growth Rate of Forth Pro- 
grammers," i=DXffl/l), have 
re-opened one of the dark 
closets of Forth: metacomp- 
ilation. 

Metacompilation is prob- 
ably the most arcane aspect 
of Forth, and is usually con- 
sidered the province of the 
Forth "priesthood." I sympa- 
thize. But I think it's a mis- 
take to abandon metacom- 
pilation for assembly lan- 
guage source, as Dr. Ting 
advocates. This is like going 
back to gas lighting because 
people get shocked by (and 
don't understand) electricity. 

Education is the answer. 

For the last four years, 
I've been saying that the 
problem is not that there 
aren't good Forth metacom- 
pilers, but that there isn't any 
good documentation for 
metacompilers. 

I've come up through this 
the hard way. My first expe- 
rience with a metacompiler 
(cross-compiler) was in 1982, 
when I tried to use a com- 
mercial product. The docu- 
mentation was incompre- 
hensible, the compiler ob- 
scure. Finally, I was able to 
complete my project by 
hacking my code onto the 
kernel supplied with the 
compiler, and by abandon- 
ing any attempt to use defin- 
ing words, IMMEDIATE 
words, or vocabularies. 
(Rather like programming in 
C, come to think of it.) 

My second experience 
was with a version of 
Cassady's Metaforth, imple- 
mented and modified by a 
friend of mine. I began to 

September 1991 October 



ROCHESTER 



FORTH 



CONFERENCE 



AUTOMATED 
NSTRUMENTS 




INVITED SPEAKERS 

Forth and Space at the Applied Physics Laboratory 

Betl Ballard and John Hayes The Johns Hopkins University, Applied Physics laboratory, 
Baltimore, MD 

"Tunnel Vision," the "Evil Eye" and Other Impediments to Scientific Vision 

Daniel B. Raybum, PhD. Department of Respiratory Research, Division of Medicine, Walter 
Reed Army Institute of Research, Washington, DC 

A Noteworthy Discussion of the Tradeoffs Between Forth and C for 
Instrumentation 

Peter Helmers Musical Dynamics, Inc., Rochester, NY 

Forth and Medical Imaging: A Perfect Fit 

Phillipe Briandet Research Director, Sopha Medical, 
Baltimore, MD 

Zeus the All Seeing: Image Analysis with a Macintosh, an IBM, and Two 
Kinds of Forth 

F. Maclntyre A/S Pixelwerks, Bergen, Norway 



PROCEEDINGS AVAILABLE 

$30. plus $5. S/H 
Send name, full address and phone 
number. Check or money order in 
US Funds or VISA/MC number 
and expiration date. 



Send request to: 

Forth Institute 

70 Elmwood Avenue 

Rochester, NY 14611 

Voice: (716) 235 0168 FAX: (716) 328 6426 

EMail: GEnie L. Forsley 

internet: 72050.2111@compuserve.com 

Compuserve: 72050,2111 
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Figure One. The probability of matching birthdays. 



BIGSIZEMAX size (an even number of bytes) of biggest number needed. 

BIB a r e a o f m e mar y w h i c h holds a m u 1 1. i p 1 e — 1 e n g t h u n s i g n e d 

number, two bytes longer than BIGSIZEMAX since the most significant 
cell is used to monitor overflow. 

B I GLOW address of least significant cell of BIG number. 

BIG! < u — ) sets BIG number to u. 

BIGS) ( - — u > fetches u from least significant cell of BIG number. 

BIGSIZE ( — u ) returns the size (rounded up to an even number of 
bytes) of BIG number, excluding leading zeroes. 

BIG* ( u - — ) multiplies BIG number by u; product is new BIG number. 

BIG/MOD ( ul — u2 ) divides BIG number by ul; quotient is new BIG 
number-, re m ain d e r is u 2 . 

PEOPLE ( n — ) calculates and displays the probability of at least, one 
pair of matching birthdays in a group of n people. 



\ Big Number Arithmetic ?< The Probability of Matching Birthdays 
1 

2 100 constant BIGSIZEMAX ( whatever you need but must be even ) 

3 variable BIG taigsizemax allot big b:t gsi z em a;-: + constant B I GLOW 

4 : BIG! ( u — ) big b i gsi z erna>; erase biglow ! ; 

5 s BIGS ( — u ) biglow S) 5 

6 : BIGSIZE ( — u ) big 2+ bigsizema;-: skip nip 1+ -2 and ; 

7 : BIG* ( u — ) biglow bigsize - biglow 

8 do over i 3) urn* rot d+ swap i ! --2 +loop ( Forth-83 veer si on ) 

9 2drop big S) abort" *** big multiply overflow ***" ; 
.10 s BIG/ MOD ( ul i.t 2 ) biglow 2+ dup bigsize - 

11 ?do over i S> -rot um/mod i ! 2 +loop nip ; 
12 

13 : PEOPLE ( n — ) >r 10000 dup big! 366 dup r8 - ?do i big* loop 

14 r> ?do drop 365 big/mod loop b.LgS) swap .1.82 > if 1+ then - 

15 ." probability of a match is "<####« 46 hold * tt> type ; 



understand the workings of 
the compiler, but even with 
my friend as a resource, I 
couldn't decipher how to add 
defining words or vocabu- 
laries. 

The breakthrough came 
on my third attempt: the 
polyFORTH target compiler. 
And the reason for the 
breakthrough is not that the 
compiler is that much sim- 
pler (although it's certainly 
elegant!), but that I was able 
to attend the polyFORTH ad- 
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vanced course and have some- 
one teach me how metacom- 
pilers work. Enlightenment! 

I then proceeded to test 
my understanding of the 
theory and practice of 
metacompilers, by writing 
one of my own. had other 
reasons for this — I needed 
features that no one else was 
offering.) But, remembering 
how much difficulty I had in 
acquiring the essential con- 
cepts, I resolved to keep 
notes and record my thoughts 
as I wrote the compiler. I think 



I may be the first person to 
document the process of dis- 
covery this way. 

In December of 1988 I 
condensed these notes into 
a one-hour presentation for 
our local FIG chapter, and 
was amply rewarded. Even 
though I delivered it at warp 
speed, several people came 
up to me afterward and told 
me that they understood 
metacompilation for the first 
time. 

The lesson I learned from 
giving this talk is this: there's 

7 



no reason why metacompil- 
ers should be hard to learn, 
use, or understand. The con- 
cepts aren't complicated; it's 
just that everyone who un- 
derstands metacompilers 
takes them for granted! 

Frank Sergeant, in Forth 
DimensionsXll/6, has started 
to dispel the mystery of 
metacompilation, by pre- 
senting a clear description of 
an elegant compiler. Like 
eForth, Pygmy is being ported 
to many CPUs in the embed- 

(Continued on page 15 ) 
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MEET THAT DEADLINE ! ! ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Yes, it is faster than optimized C! 

• Compile 40,000 lines per minute! 

• Stay totally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Use source code for 2500 functions! 

• Use data structures, control 
structures, and interface protocols 
from any other language! 

• Implement borrowed feature, often 
more efficiently than in the source! 

• Use an architecture that supports 
small programs or full megabyte 
ones with a single version! 

• Forget chaotic syntax requirements! 

• Outperform good programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FORTH with FOOPS - The only 
full multiple inheritance 
interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
Now that is a null learning curve! 



WAKE UP ! ! ! 

Forth is no longer a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple tools 
expected in any commercial language. 

HS/FORTH Meets Your Needs! 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit from not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Useful in learning Forth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Forths. We won't throw in the towel, 
but the drain on resources delays the 
introduction of even better tools. Don't 
kid yourself, you are not just another 
drop in the bucket, your personal 
decision really does matter. In return, 
well provide you with the best tools 
money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to fossilized 
compilers. You are at the mercy of 
that language's vendor. You can easily 
add features from other languages to 
HS/FORTH. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as in the 
parent language. 

Speaking of assembly language, 
learning it in a supportive Forth 
environment turns the learning curve 
into a light speed escalator. People 
who failed previous attempts to use 
assembly language, conquer it in a few 
hours or days using HS/FORTH. 



HS/FORTH runs under MSDOS or 
PCDOS, or from ROM. Each level includes 
all features of lower ones. Level upgrades: 
$25. plus price difference between levels. 
Source code is in ordinary ASCII text files. 

All HS/FORTH systems support full 
megabyte or larger programs & data, and 
run faster than any 64k limited ones even 
without automatic optimization -- which 
accepts almost anything and accelerates to 
near assembly language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299. 
NEW! Fast direct to video memory text 
& scaled/clipped/windowed graphics in bit 
blit windows, mono, cga, ega, vga, all 
ellipsoids, splines, bezier curves, arcs, 
turtles; lightning fast pattern drawing even 
with irregular boundaries; powerful 
parsing, formatting, file and device I/O; 
DOS shells; interrupt handlers; 
call high level Forth from interrupts; 
single step trace, decompiler, music; 
compile 40,000 lines per minute, stacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dental, 18 digit integer & scaled integer 
math; vars: A B * IS C compiles to 4 words, 
1..4 dimension var arrays; automatic 
optimizer for machine code speed. 

PROFESSIONAL LEVEL $399. 

hardware floating point - data structures 
for all data types from simple thru 
complex 4D var arrays - operations 
complete thru complex hyperbolics; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $499. 
Metacompiler: DOS/ROM/direct/indirect; 
threaded systems start at 200 bytes, 
Forth cores from 2 kbytes; 
C data structures & struct + compiler, 
Turbo Window-C MetaGraphics library, 
200 graphic/window functions, PostScript 
style line attributes & fonts, viewports. 

ONLINE GLOSSARY $ 45. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $ 79. 
TOOLS & TOYS DISK $ 79. 

286FORTH or 386FORTH $299. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fully and freely available; 
32 bit address/operand range with 386. 

ROMULUS HS/FORTH from ROM $ 99. 

FFORTRAN translator/mathpak $ 79. 
Compile Fortran subroutines! Formulas, 
logic, do loops, arrays; matrix math, 
FFT, linear equations, random numbers. 

Shipping/system: US: $7. Canada; $19. 
foreign: $49. We accept MC, VISA, & AmEx 
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I a i hen I first started 
1/ 1/ working with Forth, 
it's execution control 
was one of the most difficult 
aspects to learn. The basic 
words weren't difficult to 
understand — butl was encoun- 
tering frustration trying to 
make my programs fit into 
the mold those words wanted 
to impose on them. 

After seeing the wisdom 
of everything else Forth has 
to offer — simplicity, factor- 
ing, bottom-up design, per- 
formance, and economy, to 
name a few — I see evidence 
that control structures are an 
area of concern even for the 
enlightened few. 

Indications of this can be 
found in the numerous efforts 
at case statements: Parnas' 
IT ... Tl (FD VI/1), and 
security-less (e.g., poly-) 
Forth 's gymnastic mixing and 
matching of incompatible 
types of control operators by 
bouncing offset addresses 
around on the stack at 
compile time. 

I have always claimed 
that Forth has all the advan- 
tages of an interpreted lan- 
guage like BASIC, but here 
again the control structures 
get in the way. In BASIC, you 
can always whip up a quick 
loop or check the logic of 
your code with a conditional 
typed at the command line. 

I have seen this interpre- 



tative situation addressed to 
some degree, but to date I 
have not seen an integrated 
solution thatisuniform, clean, 
simple, and "Forth-like." (If I 
can judge what is "Forth- 
like"; the debate rages on!). 

I was discussing the situ- 
ation with a Forth-wiser 
friend of mine when I made 
the first step in stumbling 
upon the solution. Sometimes 
the hardest solution to see is 
the one that is right in front of 
your nose. (This happens a 
lot with me, especially when 
it comes to Forth.) 

He said, "You know, 
Kevin, there really are only 
two control operators in 



Forth, in comparison with C, 
for example, was crafting the 
code to eliminate unneces- 
sary tests. If any one of a 
series of ANDed conditions 
is not true, there is no need 
to waste any more time ex- 
tracting and evaluating sub- 
sequent conditions. Similarly, 
if any one in a series of ORed 
conditions is true, process- 
ing can continue in the body 
of the condition. Since real- 
time is one of Forths' 
strengths, how come it falls 
so flat in this area? Control 
structures! 

While writing my on-line 
classified ad system in Bourne 
Shell, I recall having fun 



Since real-time is one of 
Forth's strengths, how come 
it falls so flat in this area? 
Control structures! 



Forth, BRANCH and BRANCH 
(and ? BRANCH in the newer 
versions). You can do 
whatever you want with 
those." Well, I knew that on 
an intellectual level, but this 
forced me to focus, it got my 
wheels turning. I know the 
wheels of my mind grind 
exceedingly slow, but I 
would like to think they grind 
exceedingly fine! 

One of the things that 
created the most difficulty 
working with traditional 



seeing how many of my con- 
ditional needs could be met 
with the I | (OR) and && 
(AND) operators, which 
would drop out of the cur- 
rent line of script if the previ- 
ous command returned true 
or false, respectively. I was 
pleasantly surprised at how 
comfortable it was working 
with this arrangement, although 
it required a slightly different 
mode of thought than is con- 
ventionally used in prog- 
ramming. I could appease 
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my old modes of thought by 
coining the pet names-, i f s o 
for & and if not for | . (Since 
there was little collision with 
Forth words, I opted for the 
single-character versions.) 
You can use whatever emo- 
tional crutch feels the most 
appropriate to you, or none 
at all. 

It was apparent that just 
falling out of the line (or 
colon definition) was inad- 
equate for my needs. Most 
people aren't willing to fac- 
tor their definitions to that 
level, nor should they have 
to. There was also the ques- 
tion of looping, restarting 
the execution at some pre- 
vious point in the code. 

Those operators & and I 
marked a point of departure, 
but there needed to be 
something (other than : and 
;) to mark the points of 
return. In other words, if & 
and I caused you to break 
out of the execution of the 
code, based on some condi- 
tion, where do you land? 
Other languages have their 
endifs, thens, line termina- 
tors, etc. After serious delib- 
eration, I decided to confis- 
cate C's block delimiters { 
and ). 

I know, I hear you say- 
ing, "Here is just another 
character trying to make Forth 
more C-like," but trust me, 
the icons are where the 
similarity ends. Years ago, 
someone suggested they look 
like profiles of faces, and I 
took it one step further by 
saying that, together, they 
resembled the faces, comedy 
and tragedy, of live theater. 

With this worked out, 
conditionals I and & from 
which to branch, and layers 
of balanced control block 
delimiters, I had discovered 
how to lay down the 
BRANCH control ops. The 
only thing left to determine 
was how to lay down the 



Figure One. UCS primitives. 




Icon 


Say 


Description 


{ 


comedy 


Begins a new control block. 


} 


tragedy 


Ends the most recently open block. 
(Note: these can nest to any depth) 


& 


ifso 


Falls or "sinks" out of the current 
control block if the top of stack is 
false. 


1 


ifnot 


Same as above if TOS is true. 


A 


float 1 


Rises back to the top of the current 
control block. 




float 2 


Rises back to the beginning of the 
control block before this one. 


AAA A A A A 




Logical extension of the above. 


vv 


sink 2 


Falls through or "sinks" to the 

end of the second subsequent control 

block. 


VVV WW ... 




Logical extension of the above. 



BRANCH ops responsible for 
looping and skipping the 
ELSE part of a conditional 
construct. 

My solution was to use 
combinations of one or more 
carets CO and lower-case v's 
(you can use upper case, if 
your system converts case 
automatically) to specify that 
execution was to float or 
sink that many control block 
levels. (Actually, "levels" is 
probably the wrong word 
here. You are actually "de- 
nesting" if you are thinking 
in terms of C, but what mat- 
ters is whether you de-nest 
toward the top or the bottom 
of the program.) 

Let me see if I can bring 
this all together for you in 
Figure One. You will notice 
later that sink 1 (v) is never 
needed: the default behavior 
is to fall out of the current 
block at the end. & and | 
serve the purpose of falling 



out of the current block be- 
fore the end, based on a 
condition. 

Some of you may find 
that a caret (*) is difficult to 
enter with your editor, espe- 
cially if yours is patterned 
after the Forth, Inc. line editor, 
which uses it as a delimiter. 
Two alternatives exist. Pre- 
sented in the order of my 
personal preference: 

• Change your editor's de- 
limiter to something else; 
my suggestion would be a 
line feed; this character 
shouldn't have too adverse 



an affect on any video 
updating and, since it's 
non-printable, you would 
be highly unlikely to want 
to enter it into your source 
code. 



On 



Change the icon used for 
the float ( A ). You could use 
the tilde (~), which on 
most CRT's looks like a 
bubble, and that could be 
your memory aid: The 
more bubbles, the higher 
it will float. 

Another thing you will 



Kevin Haddock's first Forth— a FIG model adapted from CP/M— came from an 
OASIS users group. After switching himself and his customers over to MS-DOS 
and Unix , he worked in anetwork access control system done in native polyFORTH, 
a spinoff of the King Kahlid Airport in Saudi Arabia. On the side, he cannibalized 
some Commodore 64s and built a native fig-FORTH system on the C-64's 
motherboard, using a small daughterboard; this provided SCSI, RS-232, and 
Centronix capabilities almost entirely in software. Lately he has been finishing up 
a Forth written in C, not feeling that previous efforts to do this really captured the 
essence of Forth. He says, "Usually the inner interpreters were unconventional 
(e.g., case statements, jump tables, etc.) and provided little portability or comfort 
to Forthers seeking familiarity in an alien (e.g., Unix) environment." 
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UCS — F83 version. 



\ UCS — interpretative scanning 

: @CHAR (S - c) >IN @ BLK @ ?DUP IF BLOCK + C@ ELSE 
TIB + C@ THEN ; 

: ACCOUNT (S cnt chr - cnt 1 ) DUP ASCII { = IF DROP 1+ 
ELSE ASCII } = IF 1- THEN THEN ; 



>NEXT (S n) 



0< IF 1 ELSE -1 THEN >IN +! ; 



: I~ (S n) -1 >IN +! DUP 0< IF 1 ELSE -1 THEN 
BEGIN @CHAR ACCOUNT 2 DUP = 0= WHILE OVER >NEXT 
REPEAT 2DROP ; 

: I& | BEGIN @CHAR ACCOUNT ?DUP WHILE -1 >NEXT REPEAT 
1 >IN +! ; 

\ Universal Control Structures 

: { (S - a 0) STATE @ IF HERE THEN ; IMMEDIATE 

: & (S a - a) STATE @ IF COMPILE ? BRANCH HERE SWAP , ELSE 
0= IF 1 I& | THEN THEN ; IMMEDIATE 

: | (S a - a) STATE @ IF COMPILE 0= [COMPILE] & ELSE 
IF 1 I& | THEN THEN ; IMMEDIATE 

: } (S a a) STATE @ IF BEGIN ?DUP WHILE DUP @ SWAP 
HERE SWAP ! REPEAT DROP THEN ; IMMEDIATE 



\ Universal Control Structures 

: s (S - a ) BL WORD NUMBER DROP ; 



IMMEDIATE 



- (S al a2 al a2 ... n) STATE @ IF COMPILE BRANCH >R SP@ 
R@ ABS 2* 2* + R> 0< IF HERE OVER @ , SWAP ! 
ELSE 2+ @ , THEN ELSE I~ THEN ; IMMEDIATE 



: ~: (S n _) CREATE 

: ~S: (S e s . . . ) 

5 - 4 ~ S : vvvvv vvvv vvv vv 



DOES> @ [COMPILE] ~ ; 
DO I ~ : IMMEDIATE LOOP ; 

A AA AAA A A A A A A A A A, 



\ DUMP 

16 CONSTANT WIDE 

: .CHAR (S C) { { DUP 32 < | DUP 126 > I W } 

DROP ASCII . } EMIT ; 
: .ASC (Sac) { OVER C@ .CHAR 1- SWAP 1+ SWAP ?DUP & A } 

DROP ; 

: . HEX (Sac) { OVER C@ <# # # #> TYPE SPACE 1- 

SWAP 1+ SWAP ?DUP & A ) DROP ; 
: .ADR (S a) <# ASCII : HOLD #####> TYPE ; 
: .DUMP ;S a c) { { KEY? | CR BASE @ >R OVER .ADR 

2DUP .HEX SPACE .ASC R> BASE ! W } ABORT ) ; 
: DUMP (Sac) >R { R@ & [ DUP WIDE MOD ?DUP | WIDE } 

R@ MIN R> OVER - >R 2DUP .DUMP + A } R> 2DROP ; 

SCHAR returns the next char in the input stream 

ACCOUNT — given the current level count and char returns the 

adjusted COunt (Continues.) 



notice is that the branch op- 
erators ( A and v) and their 
derivatives ( A A , A A A , w, vw, 
etc.) will always appear just 
before tragedy ( }). There may 
be some elegant way of 
combining the two, but 1 
haven't found any. Also, since 
comedy and tragedy don't 
really take up any compiled 
memory, there is no real loss. 

Some may argue that the 
universal control structures 
(UCS) are nothing more than 
an elaborate GOTO scheme. 
Albeit that some may use this 
tool to take Forth further 
down the path of obfusca- 
tion by creating even more 
poorly factored and deeply 
nested eyesores, I must de- 
fend the utility by saying that 
with the requirement to keep 
the control delimiters bal- 
anced, you would have a 
very difficult time branching 
wildly into the center of some 
block of code without clearly 
indicating your intentions. 

I hope this utility will be 
a win-win situation for all 
users. The vertical-obfuscat- 
ed-code people will be able 
to nest deeper than ever 
before (if that can be consid- 
ered a win); the horizontal 
factorers can construct the 
structure to exactly what they 
want; and the poly-, cm-, 
and Pygmy-Forth types can 
get even wilder than before 
(this utility is great for pass- 
ing control out of one word 
and into the middle of anoth- 
er, for example). 

As you will see, there are 
actually two versions of each 
word, one for executing and 
another for interpreting. 
These are combined into one 
state-smart word where ap- 
plicable; this may be one of 
the few places where a state- 
smart word may be excus- 
able, since there is only a 
slight compile-time penalty 
and no run-time penalty. 

A note of caution is in 
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order here: the interpreted 
version just does a string 
search for the balancing con- 
trol delimiter, so remember: 
if you use braces — er, faces — 
in your words or in com- 
ments, always use them in 
balance. For instance, you 
could name a word { FRED } 
but try to avoid { FRED un- 
less it is to be followed almost 
immediately with something 
like FRED }. This is the only 
minor un-Forth-like limita- 
tion on syntax, but I feel it is 
a small price to pay for the 
benefit received. 

Possible uses for the in- 
terpreted version could be 
compilation scripts, non-time- 
critical routines, memory- 
critical programs, debugging 
with zero compile time, and 
my favorite: a late-binding, 
object-oriented system where 
methods could exist in dif- 
ferent vocabularies thatknow 
how to deal with their own 
data types. You select the 
context by determining what 
kind of data object you are 
dealing with, then process 
the actual, reusable algorithm 
interpretatively from disk. 
With the old FIG-style hier- 
archical vocabularies, you 
could essentially build 
superclasses. 

And now for the moment 
you have all been waiting 
for: on to the code! 

Due to the drastically 
different behavior of the 
compiled and interpreted 
operators, I will describe 
them separately, even though 
some versions of Forth will 
bundle them into the same 
state-smart word. 

It goes without saying that 
all control structures are 
compiler directives and, 
therefore, have precedence 
in whatever mechanism is 
appropriate for your Forth. 

While compiling, UCS 
holds a pair of addresses on 
the stack for each open con- 



>NEXT — adjusts the input stream pointer based on the 
sign of the given number 

I~ — adjusts the interpretative pointer to the given control 
block. Negative control block offsets move the adjust the 
pointer forward. Positive or zero backward. 

I&l — adjust the interpretative pointer to the end of the 
current control block. 

{ — denotes the start of a control block. 

& — falls out of the current control block if given value is 
false 

I — falls out of the current control block if given value is 
true 

} — marks the end of a control block. When compiling, this 
word resolves all the forward references for this block. 



UCS — Pygmy version. 



( Universal Control Structure 901127 KAH) COMPILER 
{ ( - a 0) \ BEGIN ; 

& ( a - a) COMPILE Obranch HERE dA @ - SWAP , ; 
I ( a - a) COMPILE NOT \ & ; 

} ( a a) BEGIN ?DUP WHILE DUP @ SWAP HERE dA @ - SWAP ! 
REPEAT DROP ; 



FORTH 



comment : 

UCS — PYGMY VERSION 

{ opens up a conditional structure . when in doubt use a lot 
of these. Make sure to close them. Check your stack after 
compiling to make sure you got them all. 

& takes an argument off the stack and if false branches to the 
end of the current conditional structure. Does a boolean 
and but can be thought of as (and pronounced) 'if so 1 . 

I does the same as above except branching when true. Does a 
boolean OR. Can be thought of as (and pronounced) 'if not 1 . 

) resolves all the exit conditional branches for this structure 
and marks the exit location. These must balance the open 
braces above. Check your stack after compiling when not sure 



comment; 

( Universal control structure 
: s ( - a) 32 WORD NUMBER ; 



901127 KAH ) COMPILER 



( al a2 al a2 ... n J COMPILE branch 

DUP ABS BEGIN ?DUP WHILE 2 SWAP PUSH PUSH 1- REPEAT 
DUP PUSH 0< IF HERE dA @ - SWAP , ELSE OVER , THEN 
POP ABS BEGIN ?DUP WHILE POP POP ROT 1- REPEAT ; 



September 1991 October 



12 



Forth Dimensions 



1 \ 



A A AAA 



2 \ ~ 



4 \ 



vvv -2 \ ~ ; 
: vvvvv -4 \ ~ ; 



: ~ \ ~ ; 

A A A A 3 \ ' 

: vv -1 \ ~ ; 
: vvvv -3 \ 

FORTH 



comment : 

UCS — PYGMY VERSION 

" allows you to specify the branch direction and number inline 
while compiling, ie v -5 ~ branches down 5 levels (not 
including the one you are in) 

~ lays down an inline branch backward (for positive numbers) 
or forward (for negative numbers) the given number of levels. 

"'s and v's are shorthand for forward and backward branches 
comment ; 

( Interpretive universal control structures) FORTH 

: { ; : } ; 

: 0CHAR ( - c) { { >IN @ BLK @ ?DUP & BLOCK + C@ vv ) 

TIB @ + C@ } ; 

: ACCOUNT ( cnt chr - cnt ' ) { { DUP ' { = & DROP 1+ vv } 

'} = & 1- } ; 



>NEXT ( n) 



[ { 0< & 



w } -1 } >IN +! ; 



: \~ ( n) -1 >IN +! { { DUP 0< & 1 vv } -1 } 

{ @CHAR ACCOUNT { 2 DUP = I OVER >NEXT A/v } } 2DR0P ; 

: ~ \~ ; 

comment : 

UCS — PYGMY VERSION 

{ and } are just markers in interpretative mode 

@CHAR returns the next char from the appropriate input stream 

ACCOUNT returns a possibly adjusted brace level counter for 
the given char and counter 

>NEXT adjusts >IN in the proper direction for the given level 

\~ scans for the given number of uneven braces, backward for 

positive numbers and forward for negative 
\~ is the compiliable version, ~ is the user interface 

comment ; 

( Interpretive Universal Control Structures) 
: & ( n) {| 1 { SCHAR ACCOUNT ?DUP & -1 >NEXT ~ } 
1 >IN +! } ; 

(Continues J 



trol block. The top one points 
to a null-terminated thread 
of forward branch offset cells 
(the ones compiled right af- 
ter the BRANCH and OBRANCH 
ops) for the current control 
block. The second one holds 
the address of the beginning 
of the control block, to re- 
solve the backward branches. 

Comedy ({) just leaves 
the current dictionary address 
and the initial on the stack. 

If so (&) compiles the 
conditional branch op 
OBRANCH, pushes the ad- 
dress of the offset cell fol- 
lowing it (HERE), then com- 
piles (comma's) the previ- 
ous (possibly null) forward 
reference link there. This adds 
the next link in the forward 
reference chain. 

If not ( I ) is self-explan- 
atory, just compiling an op to 
invert the test for if so. 

All the floaters and sink- 
ers are just user interfaces to 
a word that digs down in the 
compile-time stack, either to 
link into the appropriate 
forward thread or to resolve 
a backward branch. 

Tragedy ( } ) just tosses the 
control block start address 
left by comedy, then loops 
through the thread, resolving 
the forward branches until 
terminated by the null link. 

The interpreted versions 
of comedy and tragedy do 
nothing except act as targets 
for character scanning. 

In an actual installation, 
the character-scanning pri- 
mitives (consisting of the 
words SCHAR, ACCOUNT, 
>NEXT , and \ ~ , and even the 
loops in & and I ) should be 
in machine code. I will leave 
it as an exercise to you, the 
reader, to work this out. Suf- 
fice it to say the code just 
scans the input stream pointer 
across the text until it finds 
the appropriate level of 
imbalanced open or closed 
braces. Also, you will note in 
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the Pygmy version, this gives 
us our first live example of 
compiled UCS in action. I 
also leave it as an exercise to 
re-code the compilable part 
of UCS for metacompiling 
(andeven your Forth nucleus, 
if you get so inspired). I'm 
not saying a Forth should not 
have the traditional control 
structures, just that it might 
be a more elegant solution 
defining them and Forth in 
terms of UCS, rather than the 
other way around. 

Included in the listings 
are some quick examples: a 
case statement in the form of 
what could be a key/com- 
mand loop, both in inter- 
preted and compiled form; a 
memory dump utility; and a 
simple utility to create 
memory headers that will go 
out and interpretively load 
blocks, saving memory and 
compilation time (also with 
possible object-oriented im- 
plications as mentioned ear- 
lier). 

As a final note, remember 
to keep an eye on your stack 
depth changes before and 
after compiling. The UCS 
have, and need, no compiler 
security. Too many comedies 
will grow your stack and too 
many tragedies will shrink it. 
Minimalists should already 
be familiar with this techni- 
que. 

I hope you will have as 
much fun playing with, and 
improving upon, the UCS as 
I did discovering them. 
Enjoy! 



I ( n) { & 1 { @CHAR ACCOUNT ?DUP & -1 >NEXT A } 
1 >IN +! } ; 



V 



vv 

WW 



3 \~ 

-1 \~ ; 
-3 V 



1 V 



A A A A A 



2 \~ ; 



vvv 
: vww 



4 \~ ; 

2 \~ ; 
-4 \~ 



comment : 

UCS — PYGMY VERSION 

These have basically the same meaning and usage as the 

compileable ones 
comment ; 

( \ \REM \COMP ED: and SCAN) 
DEFER \ 

: \COMP CREATE BLK @ , POP DROP DOES> @ LOAD ; 
: \REM >IN @ 64/1+ 64 * >IN ! ; 
• \REM IS \ 

: ED: ( _) ' 3 + @ EDIT ; 

: SCAN [•] \COMP [ ' \ 1+ ] LITERAL ! 

THRU ['] \REM [ ' \ 1+ ] LITERAL ! ; 

comment : 

UCS -- PYGMY VERSION 

\ during loading acts as a interpretative comment marker and 
during scanning compiles the following word which loads 
the affected screen 

\COMP is the version that compiles the loading word 

\REM is the comment (REMark) marker 

Initially set the vector to remark 

ED: <name> edits the screen for the loading word <name> 

SCAN acts like thru except scanning and creating loading words 

comment ; 

( Compiled sample key input/case loop ) 
: TEST 
{ { 

CR ." ENTER A LETTER:" KEY 



{ DUP 27 = & 



BYE 



vvv } 



{ DUP 
{ DUP 
{ DUP 
{ DUP 
{ DUP 



'A 
'E 
'I 
•0 
'U 



ALPHA " w } 
EDWARD " w } 
IDA " vv } 
OCEAN " vv } 
UNION " w } 
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CR BEEP DUP EMIT ." IS NOT A VOWEL! " 
} DROP A 
} DROP ; 

comment : 

UCS EXAMPLE — PYGMY VERSION 

An example of a compiled case structure 

hit escape to quit 

comment ; 

( DUMP ) 16 CONSTANT WIDE 

: .CHAR ( c) I | DUP 32 < | DUP 126 > I vv } 
DROP ' . } EMIT ; 

: .ASC ( a c) { SWAP C@+ .CHAR SWAP 1- ?DUP & A } 
DROP ; 

: .HEX ( a c) { SWAP C@+ <####> SPACE 
SWAP 1- ?DUP & " } DROP ; 

: .ADR ( a) <# ' : HOLD #####>; 

: .DUMP ( a c) ? SCROLL CR BASE @ HEX PUSH OVER .ADR 
2 DUP .HEX SPACE .ASC POP BASE ! ; 

: DUMP ( a C) PUSH { I & { DUP WIDE UMOD ?DUP | WIDE } 

I MIN POP OVER - PUSH 2 DUP .DUMP + n ) POP 2 DROP ; 

comment : 

UCS EXAMPLE — PYGMY VERSION 

WIDE returns how many bytes to dump per line 

.CHAR prints the given char if printable else prints an elipse. 
.ASC prints the given count number of chars at the given addr 
.HEX prints c hex bytes at the given addr 
.ADR prints the given address 

.DUMP prints one line of the dump for the given addr and count 
DUMP dumps c bytes of memory at the given addr. 
comment ; 

\ TEST interpreted sample key input/case loop 
{ { 

CR ." ENTER A LETTER:" KEY 



{ DUP 27 = & 

{ DUP ' A = & 

{ DUP 'E = & 

{ DUP '1= & 

{ DUP '0 = & 

{ DUP 'U = & 



" BYE " vvv } 

" ALPHA " vv } 

" EDWARD " vv } 

" IDA " vv } 

" OCEAN " vv } 

" UNION " vv } 



CR BEEP DUP EMIT ." IS NOT A VOWEL! 
} DROP " 
} DROP 



(Letters, from page 7) 

ded systems domain. Only 
time will tell if newcomers to 
Forth prefer Frank's meta- 
compiled Pygmy Forth, or 
Dr. Ting's assembly-language 
eForth. 

Brad Rodriguez 
B.Rodriguez2 on GEnie 

Forth on the Macintosh 

Laughing Water of Hel- 
ena, Montana, told us about 
his becoming a Forth defec- 
tor on the Macintosh in the 
May/June issue of Forth Di- 
mensions. It is, in many ways, 
his article that incites the 
writing of this one. 

I have used Forth on the 
Macintosh since the early 
days of the 128K Mac. I have 
had a running application 
going and in daily use — 
developed in Mac4Th at first 
and later finalized in MACH2 
Forth — for about five years 
now. It controls a studio 1/4 " 
tape recorder, greatly facili- 
tating the logging and locat- 
ing of sound effects, atmo- 
spheres and daily dialogue 
takes in my work as film 
sound recorder and dubbing 
editor. But I, too, have dur- 
ing the last year or so become 
somewhat of a Forth defec- 
tor, using more and more 
time with other Macintosh 
developing environments, 
MPW to be more precise. 
Note I use the word envi- 
ronment and not language. 

A quote from Laughing 
Water: "Besides, the Mac lis- 
tens better when I talk Pas- 
cal." I read: "The Pascal en- 
vironment he uses is better 
than the Forth one, or at least 
better understood." 

With today's Mac pro- 
gramming choices — MPW 
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(Pascal, C, C++, MacApp, 
Assembler), MDS Assembler, 
Language Systems Fortran, 
MacFortran, Prograph, 
Smalltalk, Think C, TLM Pas- 
cal, True Basic, Lisp, 
Modula2, Simula, MacForth 
(still on sale), Mach2 Forth 
(no more advertised), Neon 
(become public domain), 
MasterForth (not supported 
for a long time), Pocket Forth, 
HyperCard, and. . . as well as 
the many dBase-like lan- 
guages like Omnis, 4th Di- 
mension, etc. — sure the Mac 
"speaks many languages," 
but the environments are "oh, 
so different." 

Macintosh programmers 
are busy generating stand- 
alone applications and ad- 
hering rigidly to Apple's 
programming guidelines. 
Forth is not concerned with 
that. (How could it be?) 

The majority of Forth code 
exchanged within the Forth 
community in journals like 
Forth Dimensions and the 
Journal of Forth Application 
and Research doesn't deal 
with standalone applications, 



Forth community lost its last 
meeting platform. Whatever 
happened to the MacForth 
user group? The last newslet- 
ter I got was sometime in late 
1986! 

The Forth community is, 
naturally, busy debating 
Forth. And it is mostly ma- 
chine independent. 

The Forth compiler and 
interpreter is a powerful tool, 
in itself, that is always present 
This is perhaps the major 
and most important differ- 
ence between Forth and any 
other language, and is im- 
mensely hard to explain to 
non-Forthers. A lot of Forth's 
power lies precisely in its 
accessibility: the ability to 
extend the compiler and in- 
terpreter, to add to it, to use 
or abuse it (refer to Defector's 
reference to anarchy) within 
new definitions. The fact is 
that the processor is there for 
you to use, directly from an 
interactive console or via 
some prior compilation. 

On the Mac, we are ex- 
pected to program so that, 
ultimately, the Forth layer 



There is no reason why the 
vast programming utilities of 
MPW could not become avail- 
able to the Forth environment. 



and only a very few times do 
they approach the subject of 
a Mac-like graphical user in- 
terface. Never, I believe, have 
they dealt with Macintosh 
issues in particular. 

The Macintosh commu- 
nity is, naturally, debating 
Macintosh issues with all it's 
virtues and quirks. When 
Moctutor's Forth column was 
stopped in favor of C++ and 
MacApp, the Macintosh's 
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will not be present. No more 
definable words, no more 
vocabularies, no more Forth 
interpreter! Some of Apple's 
programming guidelines also 
affect the available Forths 
directly. For example: not to 
use any of the 68000 trap 
mechanisms, and not to use 
in-line variables in code seg- 
ments (due to future instruc- 
tion caching). Words like 

(Continued on page 30.) 
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F-PC 

Neural Network Words 



Tim Hendtlass 

Hawthorn, Victoria, Australia 



The Last of Two Parts 



Errata 

In thefirstpart of this article (FD XIJJ/2), 
we erroneously printed an incorrect 
figure. In that issue, the Forth file printed 
as Figure Eight (beginning on page 20) 
actually contains words related to disk 
I/O, which is discussed in this install- 
ment. Please refer to it for that code. In 
tum, the file NNDEMO.SEQ, which 
should have been printed last time as 
Figure Eight, appears herewith. We 
apologize to the author and to any 
readers who were inconvenienced. 

The author also wishes to note that in 
D1SKNN.SEQ (the file which appeared 
last time as Figure Eight), he used a 
couple of outdated word names in the 
opening comment: NL->DISK instead 
of SAVE-LAYER, andDISK->NLinstead 
of LOAD-LAYER. —Ed. 



I n part one of "Neural Net- 
/ work Words," a number 
of words were developed to 
build and train neural net- 
works. Words are now pre- 
sented to save a network 
layer to disk. Most networks 
will learn from real life data 
rather than from an artificial 
example, such as the XOR 
relationship used in part one. 
The advantages of scaling 
the real life input and output 
values to suitable internal 
values for the neurones used 
was also demonstrated in 
part one. 

Working out scaling fac- 
tors is tedious, at best, and 
words are now presented to 



read a data file, calculate the 
required scaling factors, and 
save these to disk. Finally, a 
general-purpose word to 
train a network is presented. 
It is customised to a particular 
application by assignments 
made to four deferred words. 
An example that uses these 
words is given. 

Words to copy a network 
layer to and from disk 

SAVE-LAYER 

This word saves a neural 



layer to disk. The address of 
the layer to save must be on 
the stack on entry, and the 
name of the file to create 
must immediately follow 
SAVE-LAYER on the current 
input line. If a file by this 
name already exists, the user 
is asked for permission to 
overwrite it. 

READ-LAYER 

This word restores a neural 
layer from disk. The layer 
must have been created be- 
fore the word is called. The 
address of the layer to copy 
to must be on the stack on 
entry, and the name of the 
file to read must immediately 
follow READ-LAYER on the 
current input line. No check 
is made to see that the layer 
being read to has the same 
dimensions as the layer on 
disk. 

Words to read a data file 
Data files used by this 
software are simple ASCII 
files, with one set of input 
values and one set of output 
values per line. No explicit 
provision is made in this ver- 
sion for comments, although 
anything on a line after the 
specified number of inputs 
and outputs will be skipped 
over. The variable N-IN 



specifies the number of in- 
puts to the whole network, 
the variable N-OUT the 
number of outputs from the 
whole network. READ# reads 
one number from the cur- 
rent input and scales it into 
internal form. 

The convenient word 
PROCESS -FILE saves infor- 
mation about what we were 
doing and moves up one 
handle on the handle stack. 
It then opens a new file, 
processes it, closes it, and 
returns to what we were 
doing when the PROCESS - 
FILE word was encounter- 
ed. P ROCE S S -F I LE must be 
followed directly by the name 
of the file to use, and pro- 
cessing continues immedi- 
ately after the filename. The 
actual processing done is 
controlled by the deferred 
word (PROCESS-FILE) 
which can be set to any- 
thing at all. SET-SCALES 
and T EACH-NETWORK (see 
below) differ mainly in what 
(PROCESS-FILE) isequat- 
ed to. 

Scaling words 
SET-SCALES reads the 
file specified immediately 
following this word. It finds 
the maximum and minimum 
input and output numbers, 



The more complicated the 
relationship to be learned, the 
more neurones will be needed. 
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Figure Three. A small sample data file (XOR.DAT). 



and works out the scaling 
factor to scale the real life 
input and output values to 
the range from -0.5 to +0.5, 
which suit the non-linear 
transform in use. After the 
scale factors have been set, 
the words SCALE-IN# and 
SCALE-OUT# scale an input 
or output number. The word 
UNSCALE-OUT* returns an 
output from internal repre- 
sentation to real life units. 
The scaling factors can be 
saved to disk and restored 
from disk with SAVE-SCALES 
and READ-SCALES, respec- 
tively. Each of these words 
must be immediately follow- 
ed by the name of the file to 
use. 

The generic training word 
TEACH -NETWORK is the 
top generic training word. It 
expects the number of train- 
ing passes to be on the stack 
on entry, but if the stack is 
empty it defaults to 1000 
cases. It must be followed by 
the name of the data file to 
use. It does not establish the 
scale factors — these must 
have been just calculated, or 
a previously generated set 
must have been read from 
disk. 

TEACH-NETWORK con- 
tains four deferred words, 
and these must be pointed to 
the routines for the specific 
task in hand. The deferred 
words, and their functions, 
are: 

DO-INIT 

This may do any initializa- 
tion of disk, display, or any- 
thing else required. 

FORWARD -WORD 
This performs one evalua- 
tion pass of the network, 
updating the internal activa- 
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tion of each output. It ex- 
pects the inputs, already 
scaled, on the stack on entry. 
Once a network is trained, 
this is the basic word for 
using it in recall mode. 

TRAIN-WORD 

Given a set of scaled outputs 
on the stack, this word must 
calculate the errors in the 
outputs and back-propagate 
these to the network inputs, 
updating the weights as it 
goes. It leaves nothing on 
the stack. 

DISPLAY- INFO 
This is a word to display any 
information about the state 
of the network that may be 
desired. It is called after each 
training example. 

With these words, TEACH- 
NETWORK will train for the 
specified number of cases or 
until a key is pressed. Figure 
One shows the code for the 
words described above. [See 
Errata onpage 1 7; the Figure 
One referred to here was 
printed as Figure Eight in the 
last issue. — Ed J 

Example 

Figure Two shows an 
example that uses TEACH- 
NETWORK, and Figure Three 
provides a suitable data file. 
Once again, the exclusive-or 
relationship is used so that 
the file is short, but any other 
could be substituted. The 
more complicated the rela- 
tionship to be learned, the 
more neurones will be 
needed. If too few are used, 
the network either will not 
stabilise or will learn only the 
general features of the rela- 
tionship and fail to learn the 
detail. Of course, this ability 
to generalize may be of con- 



\ input 

10 1 \ input 

011 \ input 
110 \ input 



siderable interest in some 
situations. The error display 
is very simple, just printing 
the error for the four ex- 
amples per line; since there 
are four possible examples, 
only this provides a simple 
way to see how the network 
is behaving. Alternatively, a 
simple four-graph plotting 
routine would make trends 
easier to observe. 

Conclusion 

The words presented here 
extend those in part one. 
Together, they provide a 
toolkit for constructing non- 
linear feed-forward networks 
and for training them by back 
propagation. They demon- 
strate again the power of 
Forth to produce a special 
language for a task. Follow- 
ing the approach used here, 
words could simply be pro- 
duced to implement other 
types of neural layers, such 



input output 
input output 
input output 
input output 



as self-organising Kohonen 
layers. By standardising on 
passing data between layers 
on the stack, networks of 
arbitrary complexity can be 
readily constructed, trained, 
and used. 



Tim Hendtlass has used Forth for years, and teaches it to about 100 students per 
year at the Swinburne Institute of Technology. He relates, 'Roughly half the class 
are taking Computer Science as their co-major and, by the time they get to me, 
have one year of programming and several (nearly) working programs under their 
belts; they are sure they know it all. The other half are taking Medical Biophysics 
and generally are not sure what a computer is, are sure they don' t like it, and have 
a fear that touching the keyboard will result in the machine taking over their minds. 

"Despite this difference in background, within about one semester they are all 
controlling instruments in the laboratory using multi-tasking and hardware inter- 
rupts, all written in Forth. They like it, to their collective surprise. I would be 
delighted to hear from anyone else teaching Forth as a primary language of 
choice and as a vehicle to let students achieve some non-computing-related 
objective (scientific instrumentation systems, in my case). 



"I have developed a series of experiments that I would be glad to share, and I 
would welcome hearing about others' experiences. Write to me in care of the 
Swinburne Institute of Technology, P.O. Box218, Hawthorn 31 22, Australia; or fax 
to 819 5454." 
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Figure Two. An example using TEACH-NETWORK (NNDEM02.SEQ). 




2 n-in ! 1 n-out ! 




\ 


define number of 


network inputs and outputs 


1 3 layer TOP 










top initialize 






top (output) layer 


3 2 layer BTM 










btm initialize 




\ 


bottom (input) layer 


clipping off 










: — > ( — ) 










btm compute 




\ 


use stack data and evaluate the bottom layer 


btm get -outputs 




\ 


load bottom's output to stack 


top coniput.e 




\ 


use bottom layer 


outputs, evaluate top layer 


' — > IS FORWARD-WORD 










: < — ( On On-1 .... 01 — 


) 








top calc-load-errors 




\ 


calculate and load the errors 


s0.3 top train 




\ 


train top layer, 


learning rate of 0.3 


U L.1LL J.UaU CIIUID 




\ 
\ 


load back propagated errors 


sO . 8 btm train 




\ 


train bottom layer, learning rate of 0.8 


n — i n (3 fl ?Hrnn 1 r\r\Y\ 
11 JLll c v UU &UX.U^J XUUp 






lose back-propagated errors @ network inputs 


1 icount + ! ; 




\ 


increment itteration count 


' < — IS TRAIN-WORD 










: GET-ERROR ( n — S# ) 




\ 


get nth output UNSCALED error 


dup get-oeadr 2@ 




\ 


get the internal 


error 


rot get-intact 2@ s'fn(x) 


3/ 


\ 


convert to external form 


o-s 2@ s/ 




\ 


and unscale it 




: . ERROR 




\ 


show errors each 


set of inputs 


icount @ 1- 4 /mod swap 0= 


if 


\ 


time for an new error line? 


crlf ." Set # " 1+ 4 .r 


It _ 


errors " 




else drop then 1 get-error s. 

t 


\ 


print abs error 




' .ERROR IS DISPLAY- INFO 










: MISC-INIT icount ! ; 










' MISC-INIT IS DO-INIT 










\ EXAMPLE 










set-scales xor.dat 




crlf . ( Conversion scales computed ) crlf 


save-scales xor.sca 






( Scales saved) 


crlf 


500 teach-network xor.dat 




crlf . ( Network teaching terminated) 


top save-layer xortop.lyr 






( Top layer saved) crlf 


btm save-layer xorbtm.lyr 






( Bottom layer saved) crlf 
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NNDEMO.SEQ code pertaining to Part One. 




\ Four examples of simple 


artificial neural networks. Tim January 1990 


\ *********************************************** 


comment : 








These examples all use simple 


non 


-linear feedforward networks and are trained 


by back propagation. For 


simplicity, they use very simple inputs. Examples 


2 to 4 all learn to impliment 


the 


exclusive or relationship, which practically 


would never be generated this 


way 


! Needs BASICNN to have been loaded, the 


line below will check and 


load this file if it is not already loaded. 


comment ; 








\ **************************************************************************** 


( ===> ) NEEDS BASICNN . SEQ ( <=== ) 


\ **************************************************************************** 


anew program 








\ Example One, single layer learning two relationships. 


1 2 layer TEST 




build network with 2 inputs and 1 output 


: EX1 ( — ) 


\ 


the 


word that puts example 1 together 


test initialize 


\ 


initialize layer 


1 icount ! 


\ 


initialize itteration counter 


clipping off 


\ 


clipping not required 


begin 








crlf ." Pass " icount @ 








SO. 5 SO. 5 


\ 


first use inputs of 0.5 and 0.5 


test compute 


\ 


do 


one forward pass 


test get-outputs 


\ 


output to stack 


2dup ." Output " s. 


\ 


print result we got 


S-0 .5 2swap d- 


\ 


calculate error, result should be -0.5 


test load-errors 


\ 


load the error 


SO. 8 test train 


\ 


update weights using a learning rate of 0.8 


2drop 2drop 


\ 


only 1 layer, backpropagated errors not needed 


S-0.5 SI 


\ 


second use inputs of -0.5 and 1 


test compute 


\ 


do 


one forward pass 


test get-outputs 


\ 


output to stack 


2dup ." Output " s. 


\ 


print result we got 


SO. 5 2swap d- 


\ 


calculate error, result should be 0.5 


test load-errors 


\ 


load the error 


SO. 8 test train 


\ 


update weights using a learning rate of 0.8 


2drop 2drop 


\ 


don 


't need the backpropagated errors 


1 icount +! 


\ 


bump the iteration counter 


key? if key drop exit then 


\ keep going until we get bored 


again 








\ Example Two, two layers 


, XOR, standard input 


1 3 layer test2 




\ 


1 output, 3 inputs The top layer 


3 2 layer testl 




\ 


3 outputs, 2 inputs The bottom layer 


defer docases 




\ 


the difference between examples 2 3 and 4 


defer top-layer 








defer bottom-layer 








: One-pass ( correct-output input2 inputl — error ) 


testl compute 




\ 


forward process the bottom layer 


testl get-outputs 




\ 


get its outputs ready for the next layer 


test2 compute 




\ 


forward process the top layer 


test2 get-outputs 




\ 


get its outputs ready for the error calc 


2dup s . d- 




\ 


print actual output, compute error 
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test2 load-errors 


\ 


load into test2 ready for training 




<s0 3 tp>?1-2 train 


\ 


nn^iat"^ lavpr ? weicrhts. learnincr coeff 3 




testl load-errors 


\ 


load into testl ready for training 




s0.8 testl train 


\ 


and in layer 1, learning coeff 0.8 




2drop 2drop 


\ 


lose errors backpropagated to inputs 


t 

'• 


Ex2-docases 










\ 


\-X\J u \J d o 




SI SO SI one-pass 


\ 


do 1 case 




SO SI SI one-pass 


\ 


do 1 1 case 




SI SI SO one-pass 


\ 


do 1 case 


r 

: 


(Ex2-4) 








1 icount ! 


V 


initialize itteration counter 




clipping off 


\ 


clipping not required 




begin 








crlf ." Outputs " 








dopa Sf 1 s 

Vw i \ m J v-4 o ' O 








. " after pass " icount @ 








1 icount +! 








key? 
if 


\ 


user want anything? 




crlf top-layer .layer 


\ 


if so show them the layers 




crl.f bottom-layer .layer 








key upc ascii Q = 


\ 


they want to quit? 




if exit 


\ 


if so get out of here 




else begin key? 


\ 


if not wait . . 




nrit T 1 lcf^\7 H T~r~lT~) r""rl f 
uiiu j.x /\- "3 y ' — J- \j v . j_ ^ j_ 


\ 


unti 1 rhpv fall t"hi3t" wp mav do on 




then 








then 








again 






r 

■ 


Ex2 








testl initialize 


\ 


initialize our... 




test2 initialize 


\ 


. . .two layers 




['] testl is bottom-layer 








[ ' ] test2 is top-layer 








['] ex2-docases is docases 






r 


(ex2-4) 






\ 


Example Three, two layers, XOR, 


scaled inputs and outputs 


; 


Ex3-docases 








S-0.5 S-l S-l one-pass 


\ 


H(~i <;ra 1 pH fl /->a«5fa 

W O — CI -L- — 4 \j v ^dOC 




SO. 5 S-l SI one-pass 


\ 


do scaled 1 case 




S-0.5 SI SI one-pass 


\ 


do scaled 1 1 case 




SO. 5 SI S-l one-pass 


\ 


do scaled 1 case 


/ 

: 


Ex3 








testl initialize 


\ 


initialize our... 




test2 initialize 


\ 


. . .two layers 




['] testl is bottom-layer 








[ 1 ] test2 is top-layer 








[ ' ] ex3-docases is docases 








(ex2-4) 












(Continued on next page.) 
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\ 


Example Four, two layers, XOR, 


special geometry, scaled inputs and outputs 


1 


3 layer test4 


\ 


1 output, 3 inputs The top layer 


1 


2 layer test3 


\ 


1 outputs, 2 inputs The bottom layer 


: 


MOD-ONE-PASS ( correct-output 


inputl input2 — error ) 




4dup test3 compute 


\ 


copy the inputs, use one copy on test3 




test3 get-outputs 


\ 


get the output from the bottom layer 




test 4 compute 




(~»1~ViAT~ noDu 4- 1~£^<3+ - '^ nnl"nnt = l nnnt - t" r"i ■t"£ ic it"4 

\J k-< V 1 L» w O *J Uul'h'UI^ J.llMUk> ' Lr w o ^ 




test4 get-outputs 


\ 


get the actual output from the top layer 




2dup s . d- 


\ 


print actual output, compute error 




test4 load-errors 


\ 


load the error into the top layer 




s0.3 test4 train 


\ 


update weights in top layer 




>r >r 2drop 2drop r> r> 


\ 


lose errors propagated back to the inputs 




test3 load-errors 








s0.8 test3 train 


\ 


now update bottom layer 




2drop 2drop 


\ 


lose errors backpropagated to inputs 


• 
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S-0.5 S-l S-l mod-one-pass 


\ 


do scaled case 




SO. 5 S-l SI mod-one-pass 


\ 


do scaled 1 case 




S-0.5 SI SI mod-one-pass 


\ 


do scaled 1 1 case 




SO. 5 SI S-l mod-one-pass 


\ 


do scaled 1 case 


'" 

: 


Ex4 








test3 initialize 


\ 


initialize our... 




test4 initialize 


\ 


. . .two layers 




[ ' ] test3 is bottom-layer 








[ ' ] test4 is top-layer 








['] ex4-docases is docases 






/ 


(ex2-4) 
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THINK BIG 
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FOR THE OFFICE — Simplify and speed your work 
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and general ledger software They are easy to use powerful, 
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manuscript, not the computer " Stewart Johnson, Boston 
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FORTH and others. 

Caff tor In* brocrmrt, tochrtol Into or pricing derate 



Advertisers Index 

FORML 44 

Forth Interest Group 35, 37 

Harvard Softworks 8 

Journal of Forth Application & 

Research 6 

Miller Microcomputer Services 22 

Next Generation Systems 16 

Offete Enterprises 34 

Silicon Composers 2 
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A message from the President of the Forth Interest Group 





Organization, Issues, Actions, 
and Explanations. 



Who would 
complain if 
Forth were 
required in 
their project? 



Organization 

Business Group 
Summary of recent busi- 
ness meeting minutes for July 
21, 1991 (full minutes of the 
Business Group are avail- 



able upon request): 

Membership dues (correc- 
tion): In the last FD, I stated 
that the dues for the new 
student membership were 
$24 per year. That was one 



of the figures suggested, 
however the correct figure 
that was approved by the 
business group was a stu- 
dent membership of $18 per 
year. 

ADC Reports: There are 
now 1511 FIG members to 
date. This is an increase from 
last year at this time. This 
turn-around has been a long 
time in coming, and I expect 
the upward trend to con- 
tinue. 

Board of Directors 

The nomination process 
for the Board of Directors 
has taken place. According 
to the FIG by-laws, a nomi- 

(Conlinued on page 26.) 



Forth Interest Group 
Statement of Change in Financial Position 
April 30, 1990 to April 30, 1991 




ASSETS: 
Current Members 


4/30/90 

2106 


4/30/91 

1831 


Change* 

-275 


Current Assets: 

Foothill Bank, Money Market 
Foothill Bank, Checking 
Pending Foreign Clearing 
Returned Checks Pending 
FORML, Money Market 
FORML, Checking 

Total Current Assets: 


15,925.38 
636.43 
-102.00 
0.00 

15,894.11 

1,926.01 

34,279.93 


24,865.91 

700.14 

51.67 

72.00 

16,916.46 

1,236.64 

43,842.82 


8,940.53 

63.71 

153.67 

72.00 

1,022.35 

-689.37 

9,562.89 


Inventory: 

Inventory at cost 
Total Inventory: 


34,147.53 
34,147.53 


26,601.17 
26,601.17 


-7,546.36 
-7,546.36 


Other Assets: 

Deposit, United Parcel Service 
Second Class Postal Account 
Accounts Receivable 

Total Other Assets: 
TOTAL ASSETS: 


200.00 

156.31 

3,166.20 

3,522.51 

71,949.97 


200.00 

192.41 

2,099.00 

2,491.41 

72,935.40 


0.00 

36.10 

-1,067.20 

-1,031.10 

985.43 


LIABILITIES: 

Sales Tax due 33.89 
FD Dues Alloc to future months FD 37,487.30 
TOTAL LIABILITIES: 37, 52 1 . 1 9 


35.58 

41,518.51 

41,554.09 


1.69 

4,031.21 
4,032.90 


Financial Reserve: 


34,428.78 


31,381.31 
* Increase = + 
Decrease = - 


-3,047.47 
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Ada Multiprocessor 
Real-Time Kernel 



HoytA. Stearns, Jr. 
Phoenix, Arizona 



A fully pre-emptive, pri- 
^"\ority driven, multipro- 
cessing real-time kernel is 
required in certain applica- 
tions (processcontrol, in this 
case). After evaluating sev- 
eral schemes, I decided that 
theAdarendezvousmethod 
is simple, straightforward, 
and elegant. Ada multitask- 
ing will work on any con- 
figuration of multiple pro- 
cessors that can communi- 
cate, or on a single proces- 
sor. A single task can be lo- 
calized to a particular pro- 
cessor, or can be distributed 
among many. 

The listing is the kernel 
for a system with three pro- 
cessors. In the actual imple- 
mentation, one of the three 
processors is of a completely 
different type, which is 
handled by having two code 
fields in each Forth word. 
All processors share the 
same memory. 

Having a processor of a 
different type added some 
complications in the listing 
not normally necessary — 
such as the constant WS for 
word size — since the pro- 
cessors were of different 
addressability. 

The kernel works fine on 
asingle-processorsystem,in 
which case all references to 
sernaphoresmayberemoved. 

Memory is allocated 
from the top down, starting 



at the contents of variable 
RAMPTR. First the system 
variables are allocated, then 
task control blocks (TCB's), 
as tasks are registered to the 
system with REGlS.EachTCB 
has three link fields, one for 
eachprocessor, so a task may 
be registered to be scheduled 
among one to three proces- 
sors. 

Although this kernel 
implements the Ada rend- 
ezvous system, the syntax 
is, of course, different. 

The Ada selective-wait 
structure is invoked in this 
system with the word SELECT 
(Sbit_mask timeout value - 



Ada :in message, or where 
to copy the data if it is an 
Ada :out message. 

The sender parameter is 
the address of the caller's 
TCB, and is used as a par- 
ameter to the word RELEASE, 
which is equivalent to the 
AdaEND_SELECTconstruct. 

Ada entry calls are imp- 
lemented here with theword 
call (S msg...timeout_value 
entry_# TCB_addr - msg... 
status) where timeout_value 
is how many clock ticks to 
wait for receipt of the mes- 
sage before returning with 
#call_expired status. The 
other parameters are which 



Ada's multitasking works 
on multiple processors 
that can communicate, 
or on a single processor. 



sender &msg entry_#), 
where each 1 bit in bit_mask 
represents an Ada entry that 
is open (ada accept) and 
the timeout_value is how 
long in clock ticks to wait for 
amessageononeoftheopen 
entries (ADA delay). The 
entry_# return parameter is 
which entry the message 
came in on, or the total num- 
ber of entries on this task if it 
times out. The &msg is 
where to get data if this is an 
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entry on which task to call. 
The message parameters 
must be explicitly dropped 
after the call, since call has 
no way of knowing how big 
the message is. 

Other functions available 
are pure delay and IXMIT, 
which sends a message 
without stalling the caller 
(mainly used to send mes- 
sages from interrupts). In 
Ada, interrupt messages are 
received by tasks just as if 

Forth Dimensions 



they were fromanother task. 

Improper structuring of 
tasks in a system may easily 
result in deadlocks. The 
word dedlok may be in- 
voked periodically to break 
any deadlocks by returning 
the parameter #BROKEN to 
one of the call's involved. 
This shouldn't be necessary 
in a properly programmed 
embedded system. 

There should be a mas- 
TERtask — registered to only 
one of the processors in the 
system — which registers the 
rest of the tasks, then calls 
slave tasks on the other pro- 
cessors, which start up their 
own schedulers. 

Interrupts were handled 
in the target system by 
revectoringNEXT in the var- 
iable np (next pointer) on a 
particular processor to high- 
level code to post an ixmit 
message, then revectoring 
next back to normal, next 
may also be vectored for 
tracing. 

Thereisan ancillary task, 
SYSTAT, which takes a snap- 
shot of the entire system and 
prints a report of task status, 
message queues, run-time 
statistics, etc. — but that is for 
another article. 



Ada listing. 



!cr # 1 

\ load screen real time kernel has063091 
1 

2 decimal 

3 variable ramptr spO @ 2000 - ramptr ! \ top of tcb space 
4 

5 (S d addr — ) 

6 : d+! dup >r 2@ d+ r> 2! ; 

7 : umin (S nl n2 — n3) 2dup u> if swap then drop ; 
8 

9 2 constant ws 
10 4 constant dws \ word size — addr increments/word 
11 

12 vocabulary kernel kernel definitions 

13 2 28 thru 
14 

15 \ forth definitions 



Scr # 2 

\ has063091 

1 : access dup create , does> @ + ; 

2 : sys dup create , does> @ ramptr @ + ; 
3 

4 \ receiver definitions 

5 1 constant open 2 constant refus 128 64 + constant pused 

6 64 constant used 32 constant rsemaphore 

7 access rlist ws + access rstate ws + constant rcvrsz 
8 

9 \ task definitions 

10 1 constant selbt 2 constant endobt 4 constant delbt 

11 128 constant stkbt 64 constant suspbt 32 constant tsemaphore 

12 16 8 or constant proc_lock 

13 constant #call_ok 2 constant #broken 

14 1 constant #refused 3 constant #call_expired constant id 
15 



Scr # 3 

\ haslll690 

1 sys event 

2 dws - sys clock dws - sys start_time 

3 ws 3 * - : upO [ dup ] literal id + ramptr @ + 

4 ws - ramptr @ + constant f irst_tcb_top 
5 

6 upO ! 
7 

8 (S bits addr — ) : set tuck @ or swap ! ; 

9 : reset tuck 6 swap not and swap ! ; 
10 

11 (S word true false — flag) 

12 : logic over or -rot xor and 0= ; 
13 

14 : up@ upO @ ; : up! upO ! ; 
15 

(Code continues.) 
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(President, from page 23.) 

nating committee consisting 
of two members of the Board 
of Directors (John Hall and 
Dennis Ruffer) was ap- 
pointed. After a search for 
candidates, three were se- 
lected to fill the vacant po- 
sitions. They are Mike Elola, 
current board member; Nick 
Solntseff, southern Ontario 
FIG Chapter; and Jack 
Woehr. Since there were 
insufficient write-in petitions 
(25) for any other candidate, 
an election by ballot by the 
membership is not required. 
A unanimous vote for the 
nominees will be cast by 
the Secretary at the annual 
meeting of the Board of 
Directors in November. 
These candidates will sub- 
mit personal statements in 
the November-December 
issue of Forth Dimensions. 

Issues, Actions and 
Explanations 

Treasurer has prepared 
review of FIG financial situ- 
ation. The treasurer has 
prepared, and the Board has 
approved, the financial 
statement presented in this 
FD. In explanation, April 30 
is the end of FIG's fiscal 
year and the figures reflect 
those dates. The form is 
similar to a "Statement of 
Change in Financial Posi- 
tion" changed to reflect the 
year-ends for 1990 and 1991 
with comparison. This form 
shows Assets and Liabili- 
ties, and the differences. 
Most categories are clear, 
with the exception of the 
'FD Dues Alloc, to future 
months FD" and "Financial 
Reserve." "fDDues Alloc to 
future months FC is money 
received by FIG, budgeted 
to complete a member's year 
of Forth Dimensions (this is 
the amount FIG is obligated 
to put aside to produce fu 



Scr # 4 

\ low level has062991 

1 \ message definitions and call_frame definitions 

2 access mlink ws + access dest access cdest 

3 ws + access dest_rcvr access centry 

4 ws + access sender access cdelay dup constant csize 

5 ws + dup constant mdata constant msize 

6 : link dup upO <> if [ rot dup ] literal 

7 + id + [ -rot ] then ; 

8 ws 3 * + access nrcvr ws + access priority ws + access tstate 
9 ws + access maxtim ws + access actime dws + access urp 

10 ws + access usp ws + access uspO ws + access urpO 

11 ws + access uip ws + access unp ws + access totime dws + 

12 access spmin ws + access rpmin ws + access splim ws + 

13 access rplim ws + access tname 2 dws * + access rcvrs 

14 ws + access _dp 

15 ws + constant tcbase size 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 5 

\ user functions 



has062991 



(S rcvr_addr — ) \ mlink must be before free 

: rsem_clr rstate rsemaphore swap reset ; 

(S rcvr_addr — ) \ wait for semaphore, then set it 

: ?rsem rstate begin dup @ rsemaphore and 0= until 

rsemaphore swap set ; \ must be done under lock 
: idlock ( semaphore to lock a processor's task list) ; 
: idunlock ; 

: di ( disable interrupts on this processor) ; 
: ei ( enable interrupts on this processor) ; 

: ?tsem ( test and set a task linking semaphore) ; 
: tsem_clr ( clear tsemaphore) ; 

: sys_stks ( set stack pointers to system area) ; 
: 'next ( address of "next" in target for NP, the next vector) 



Scr # 6 

\ has062991 

1 (S up — f, true if activation time) 

2 : ?actime actime 2@ ( di) clock 2@ ( ei) d- nip 0< ; 
3 

4 (S start_addr number item_size — item_size, +or- end_a start_a) 

5 : <b dup >r * dup >r over + 1 r> ?negate - r> -rot swap ; 
6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



(S up offset — size end start) \ setup loop over receivers 
: rbnds over rcvrs + swap nrcvr @ rcvrs z <b ; 

(S up bit_mask — ) 
: sbclr swap rstate 

rbnds do over i reset dup +loop 2drop ; 
(S rcvr_addr — flag, open with msg) 

: ?msg dup dup >r ?rsem dup rstate @ open and 0<> 
swap rlist @ and r> rsem_clr ; 
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has062991 
\ push parm to up task 



Scr # 7 

\ 

1 (S data up — ) 

2 : tpush usp dup @ ws - dup rot ! ! 
3 

4 (S up rcvr_addr--rcvr_number) 

5 : ra>r# swap rcvrs - rcvrsz / ; 
6 

7 (S up rcvr_number — rcvr_addr) 

8 : r#>ra rcvrsz * swap rcvrs + ; 
9 

10 (S rcvr_addr — ) 

11 : rcv_msg dup dup ?rsem rlist dup di @ tuck @ swap ! ei 

12 -1 swap ! ( rec'd) on rsem_clr ; 
13 

14 (S rcvr_addr — msg_addr) 

15 : rcv>msg rlist @ ; 



Scr # 8 

\ has062991 

1 (S rcvr_addr — ) 

2 : mark_used rstate pused swap set ; 
3 

4 (S msg_addr — ) 

5 : clr_sender_delay sender @ tstate delbt swap reset ; 

6 (S Ststate — tstate flag) \ True if not... 

7 \ ...suspended, tsem=0, stk ok 

8 : ?runnable dup @ swap ?tsem over [ stkbt suspbt or ] literal 
9 and or 0= ; 

10 (S --up') 

11 : robin? up@ dup link @ swap priority @ over priority @ 

12 <> if drop upO @ then ; 
13 

14 : setnxt (S up--) tsemaphore over tstate ! di up! ei 

15 clock 2@ start time 2! ; 



Scr # 9 

\ hasll2590 

1 (S rsize end_addr rcvr_addr — rsize end_addr rcvr_addr ' | false) 

2 : find_msg >r >r r@ swap false swap r> r> do i ?msg if 

3 nip i swap leave then dup +loop -rot ; 
4 

5 (S up msg_addr--) 

6 : msgexi 2dup sender @ swap tpush 2dup mdata + swap tpush 

7 dest_rcvr @ swap tpush ; 
8 

9 (S up rcvr_addr — ) 

10 : gotsy over open sbclr dup mark_used dup rcv>msg 

11 swap rcv_msg dup clr_sender_delay msgexi ; 
12 

13 (S up — data) 

14 : tpop usp dup @ @ ws rot +! ; 
15 



ture issues of FB). "Finan- 
cial Reserve" is the differ- 
ence between Assets and 
Liabilities, and indicates the 
state of FIG if all Assets 
were liquidated to pay all 
Liabilities. It is an indication 
of the health of FIG. 

Complete financial re- 
ports are available in the 
FIG offices and are open for 
inspection. 

Public relations. For the 
last several months, the fo- 
cus of the Business Group 
has been on publicity for 
Forth and FIG. There are 
several lines of attack that 
we are preparing to take. In 
the past, our approach has 
been to try to encourage 
individual programmers to 
look at Forth and, when 
they do, to use FIG as a 
resource. We are shifting 
the emphasis of exposure 
toward what I call, for lack 
of a better term, the "mid- 
level manager" — the people 
who control the direction of 
projects, who have some 
control of a budget, and 
who want to get the most 
product for the money they 
control. The emphasis will 
be on the innovation that is 
going on in Forth, the fact 
that there are people ready 
and available to help with 
their projects, and the wealth 
of information that is al- 
ready available. These are 
the exact people about 
whom I have heard the 
complaint, "If only these 
people understood what 
could really be done with 
Forth, my life would be a lot 
easier. " These are the people 
that I have heard complain, 
"I would like to use Forth, 
but where am I going to 
find enough of the right 
people to produce and 
maintain my project'" Two 
specific types in this group, 
to give you a better feel of 
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what I mean by mid-level 
manager, are project lead- 
ers, at all levels of industry; 
and researchers in R&D or- 
ganizations, whether uni- 
versities or R&D divisions 
of larger companies. 

How do we entice them? 

The primary way will be 
with articles in all appropri- 
ate trade publications about 
the innovative ways that 
Forth is being used to solve 
current problems. High- 
lighted will be individuals 
or teams or applications or 
Forth vendors' products or 
standards or places where 
Forth already is used but 
the fact is generally un- 
known. The emphasis will 
be on innovative ideas and 
innovative people! 

Second, by volume we 
let them know that they 
have always been sur- 
rounded by Forth and that 
the idea of using it is not 
novel — in fact, that it is re- 
quired and that there have 
always been people near 
them who are willing to 
help. 

Third, that FIG is one of 
their conduits for informa- 
tion about Forth, whether it 
is for literature, training, 
people, or direction toward 
vendor products. We will 
emphasize all the Forth re- 
sources available to make 
them and their projects suc- 
cessful. 

How do we do all this? 
This is a multi-path attack, 
and one of the places it 
starts is with you! 

1. If you will soon be 
writing a technical article 
about your project, you will 
see an article in the next FD 
about the style and approach 
that FIG would like you to 
add to your article. Horace 
Simmons has been compil- 
ing a list of the publications 
that will be the vehicles for 
this endeavor. 



Scr 

1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 10 

\ haslll990 

(S rcvr_addr — used_flag) 
: ?used rstate @ used and ; 

(S rsize end_addr rcvr_addr — rsize end_addr rcvr_addr * | false) 
: &unused >r over r> + 2dup u> if begin 
find_msg dup dup if ?used then 
0= until else drop false then ; 

(S up--up rcvr_size rcvr_end_addr rcvr_addr | false) 
: first_msg dup rlist rbnds find__msg ; 

(S up rcvr_size rcvr_and_addr rcvr_addr — up rcvr_addr) 
: acquire_used dup >r Sunused dup if r> drop nip nip 
over swap else 2drop drop dup used sbclr r> then ; 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 11 

\ has062791 
(S &mlink Srlist — ) 
: msg_unlink dup dup >r ?rsem rlist 2dup @ <> if @ 2dup mlink 
@ <> if mlink @ then then swap @ swap ! r> rsem_clr ; 

(S &msg_frame — Srlist) \ precursor to find predecessor to msg 
: msg>rlist dup dest @ swap dest_rcvr @ r#>ra rlist ; 

(S up—) 

: cancel_msg usp @ mdata - dup mlink 
swap msg>rlist msg_unlink ; 

(S up — up ) 

: caltxm dup cancel_msg #call_expired over tpush 
: texi (S — ) r> drop up@ uip @ >r ; 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 12 

\ hasll2690 
(S up — up) 

: seltxm dup open sbclr dup nrcvr @ over tpush ; 
(S up state — up ) 

: time_activate dup selbt and if drop seltxm else 
endobt and if caltxm then then 

(S up state — up true | false) 

: timechk over >r dup delbt and r> ?actime and 
if time_activate true else drop false then ; 

(S up — up true I up false) 

: inscan first_msg dup if dup ?used if acquire_used else 
nip nip then over swap gotsy true else nip nip then ; 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 13 

\ has062991 
(S up — up' true I false) 

: look dup tstate ?runnable if dup 
if tstate up dup selbt endobt logic 
if swap inscan if nip true else swap timechk then 
else timechk then 0= then else drop true then ; 

(S up—) 

: do_task dup setnxt dup urp @ rp ! dup urpO @ rpO ! 
dup uspO @ spO ! usp @ sp! texi ; 

(S — ) 

: sched sys_stks up@ tsem_clr robin? 
begin dup tsem_clr link @ until 
do task ; 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 14 

\ user functions has062991 
: save_state r> r> up@ uip ! sp@ dws + up@ usp ! 
rp@ up@ urp ! >r ; 

(S rcvr_addr — flag) 

: ?refused rstate @ refus and ; 

(S rcvr_addr — last_msg_link_addr ) 

: find end rlist begin dup @ ?dup while nip mlink repeat ; 



# 15 

\ registration has063091 
(S stack_size, words pgm_size,w #rcvr--size, words) 
: tcb_size swap r#>ra swap ws * + swap ws * + 
[ 70 ws * 80 + ] literal + ; 

(S stack_size pgm_size frcvr top_addr--bot_addr) 
: top>bot >r tcb_size r> swap - ; 

(S up Sstring — ) 

: get_tname tname 8 cmove ; 

(S up — ) \ interactive version for testing 
\ : get_tname tname dup 8 blank bl word count swap -rot cmove 



2. If you are on a project 
that is new and interesting, 
and you are interested in 
letting others know and can 
write about the technical 
parts, we will find a writer 
that can reshape it into an 
article that will complement 
the technical aspects with 
general-interest aspects of 
Forth and will help find an 
appropriate place to get it 
published. 

3. As articles are pub- 
lished, we will coordinate 
Forth- and FIG-related ad- 
vertisement to be placed in 
those issues along with the 
articles. 

Why are we emphasiz- 
ing mid-level managers? 
They are the people who 
specify or can direct the 
technical details of a project. 
They are the people who 
put together a project team. 
They are the people who 
would most likely pale at 
new innovation without 
justification. They are the 
people who make a project 
succeed or fail. They are the 
people we have failed to 
reach. Who of us would 
complain if Forth were re- 
quired in your project? 

I am always available for 
comments. 

—John Hall 
415-535-1294 
JDHALL on GEnie 
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(Letters, from page 16.) 

CREATE, CREATE DOES>, 
and, in some Forths, also 
VARIABLE, will need to be 
recoded. As of today, if you 
are using Forth and you want 
your application to be com- 
patible with future hardware 
and system software, you 
have to refrain from using 
some very natural Forth 
mechanisms. This is all very 
un-Forth-like! 

Forth could and should, 
if only some more people 
bothered, evolve on the 
Macintosh. There is no rea- 
son why the vast program- 
ming utilities of MPW, its 
many tools, its great multi- 
scrollbar editor, could not 
become available to the Forth 
environment. I myself am 
depending more and more 
on the MPW environment 
and, yet, it still lacks the one 
thing taken for granted in 
any Forth environment: 
interactivity — the kind you 
get by being able to compile 
small entities and immedi- 
ately execute and debug 
them. 

I think that if Forth has 
proved to be a disappoint- 
ment on the Mac, one has 
only oneself to blame. With 
Forth's simple and open "ar- 
chitecture," the compiler is 
not the limit, the user is. 

Conrad Weyns 
Bjerkebakken 62D 
0756 Oslo 7 
Norway 

U.K. Contest Winners 

Dear Marlin, 

I have enclosed two of 
the winning entries in the 
Forth Programmer competi- 
tion [see "Letters, " last issue — 
EdJ, along with some com- 
ments from the entrants. 



# 16 
\ 



(S stack_size pgm_size #rcvr up — next_up) 
set_stacks dup >r swap 



has062991 



r#>ra dup r> swap >r >r + 80 + tuck + 140 + dup r@ - 1+ r@ 
swap erase tuck dup r@ urpO ! r@ urp ! r@ splim ! 100 - dup 
r@ rplim ! 20 - dup r@ usp ! 
r@ uspO ! r> 



dup r@ usp 
dp + r> swap 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



Scr # 17 

\ Link in a new task 

1 (S up0@--&predecessor) 

2 : f ind_predecessor dup >r begin dup link @ dup r@ <> while 

3 nip repeat r> 2drop ; 
4 

5 (S &pred upO &new Slink — &pred upO &new Slink link flag) 

6 : pri<? 2dup link @ dup priority @ rot priority @ u< ; 
7 

8 (S &pred upO Snew Slink link — ) 

9 : do_links rot tuck link ! swap dup >r link ! 
10 @ swap dup r> = if 2drop else link ! then ; 

11 

12 (S Snew upO up0@ — ) 

13 : link_next >r dup r@ f ind_predecessor swap 

14 2swap pri<? not if begin nip pri<? over r@ = or 

15 until then r> drop do links ; 



haslll390 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 18 

\ New task linking cont'd. 
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(S Snew upO — ) 

: link_task dup @ ?dup if link_next else over dup 
link ! ! then ; 



\ Tcb linking test words 
(S priority--) 

: doit here swap , , upO link_task ; 
(S — ) 

: si upO @ dup >r begin cr dup u. link @ 
dup dup u. r@ = key? or until r> 2drop ; 
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Scr 

1 
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Scr 

1 
2 
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4 
5 
6 
7 
8 
9 
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\ 
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(S parm st_ip pri maxt up — ) 

: set_stuff >r r@ maxtim ! r@ priority ! r@ uip ! 

clock 2@ r@ actime 2 ! suspbt r@ tstate ! r@ spmin on 
r@ rpmin on r@ tpush r@ get_tname 'next unp ! ; 

(S top_adr Stname parm st_ip pri maxt stksz pgm_size trcvr id 

— top_of_next_tcb up) 
: regis idlock 8 roll over >r 

>r 3dup r> top>bot dup >r set_stacks r@ set_stuff 

r@ upO link_task r> dup r> swap nrcvr ! idunlock dup ws - 

swap ; 



# 20 
\ 
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(S rcvr_addr call_f rame_addr — ) 

: m_link mlink dup off over ?rsem over di find_end ! 
rsem_clr ei ; 

(S call_f rame_addr--) 

: set_ctime cdelay @ dup 0>= if 0' clock 2@ d+ 
up@ actime 2 ! [ delbt endobt or ] literal else 
drop endobt then up@ tstate set ; 

(S call_f rame_addr — ) 

: set_sender up@ swap sender ! ; 

(S #parms — ) \ pop in current task 
: trash_parms ws * up@ usp +! ; 
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setparms (S — ) clock 2@ 2dup start_time 2@ d- 
up@ totime d+ ! start_time 2! 
sp@ up@ splim @ u< rp@ up6 rplim @ u< or 
sp@ up@ uspO @ u> rp@ up@ urpO @ u> or or 
stkbt and up@ tstate set 
sp@ up@ spmin @ umin up@ spmin ! 
rp@ up@ rpmin @ umin up@ rpmin 



i 



enter (S — ) r> save state >r setparms 



10 

11 (S [data..] delay entry* dest_task — [new_data..] ret_parameter) 

12 : call enter 3 trash_parms sp@ [ msize csize - ] 

13 literal - dup >r sp! r@ cdest @ r@ centry @ r#>ra dup 

14 ?refused if drop #refused up@ tpush else 

15 r@ m link r@ set ctime r@ set sender then r> drop sched ; 



As an update to the re- 
port I sent, I would like to 
confirm that the discussions 
with IBM were successful, 
and they will be hosting our 
next London meeting. Inci- 
dentally, they have been most 
generous in supplying not 
only space in their South 
Bank Lecture Theatre, but 
also a buffet meal. Perhaps 
other FIG Chapters would 
be interested to know that 
there is some benefit to be 
made from approaching large 
corporations with regards to 
meetings. We are currently 
trying to encourage them to 
attend euroFORML. 

The FANSI project is pro- 
ceeding apace, and initial 
circuit diagrams have been 
drawn up for our planned 
processor board. We have 
actually settled on a 6309 
processor, which is a CMOS 
6809. This was chosen for its 
low cost and availability, and 
for the orthogonality of its 
instruction set and direct 
support for two stacks. It is 
possible that, in the future, 
we will produce a second 
board using a stack proces- 
sor, very possibly the Ger- 
man device designed by 
Klaus Schleisiek-Kern, inci- 
dentally the organizer of this 
year's euroFORML. 

Yours sincerely, 
Gordon Charlton 
Events Secretary, FIG-UK 
31 Pikestone Close 
Hayes, Middlesex UB4 9QT 
Great Britain 



I have been using Forth 
since 1978. Most of the pro- 
fessional work I have done 
has been embedded soft- 
ware in traffic monitoring 
equipment for an outfit called 
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Golden River. More recently, 
I wrote an implementation 
of Forth-83 for the Transputer. 
I started working on the 
Matching Birthdays problem 
as a result of Gil's blatant 
provocation in asserting it 
was a formidable calculation. 
My first attempt performed 
the entire calculation on the 
stack and ran to six screens 
of source code. My general 
thoughts about Forth are that 
it is a good thing. 

Big Number Arithmetic 

and the Probability of 
Matching Birthdays 

In the editorial of Fortb- 
write 56, Gil gave the for- 
mula for- calculating the 
probability of finding at least 
one pair of matching birth- 
days in a group of n people 
as (1 - P), where P is found 
by multiplying all the inte- 
gers in the range (366 - ri) to 
365 inclusive, then dividing 
by 365 n times. 

To obtain four decimal 
places using integer arith- 
metic, we must multiply by 
10,000 and subtract the re- 
sult from 10,000. All the 
multiplication must be per- 
formed before the division, 
giving rise to very big inter- 
mediate values. It is only 
necessary to multiply and 
divide by single-length num- 
bers, so the algorithms for 
"short multiplication" and 
"short division" are used; the 
product or quotient is writ- 
ten, cell-by-cell, back to the 
same memory locations that 
held the corresponding cells 
of the multiplicand or divi- 
dend. 

It is interesting to com- 
pare the results of this pro- 
gram with those which Gil 
obtained using the Monte 
Carlo method. The big num- 



Scr # 22 

\ haslll590 
1 

2 (S up—) 

3 : enable dup >r begin dup tstate suspbt swap reset 

4 link @ dup r@ = until r> 2drop ; 
5 

6 \S ***** 

7 (S — ) 

8 : startup id " MASTER" drop 1- find 0= abort" No Master!" 

9 255 30 2 f irst_tcb_top 

10 regis MASTER 

11 up@ tpush up@ enable sched ; 
12 

13 
14 
15 



Scr # 23 

\ hasll2090 
1 

2 (S receiver_specif ier 'set or 'reset bit — ) 

3 : sr_all_rcvr rot up@ rstate rbnds rot drop do 

4 3dup 1 and * i rot execute u2/ rcvrsz +loop 2drop drop ; 
5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



Scr # 24 

\ accept hasll2090 
1 

2 (S delay_j)arameter | selbt — ) 

3 : setdel swap dup if dup 0< if >r up@ actime 2@ r> -1 d- 

4 else clock 2@ d+ then up@ actime 2! delbt then 

5 or up@ tstate set ; 
6 

7 (S rcvr_specif ier — ) 

8 : open_rcvrs ['] set open sr_all_rcvr ; 
9 

10 (S receiver_specif ier delay_specif ier -- &sender &data rcvr#) 

11 : select 

12 enter 2 trash_parms selbt setdel open_rcvrs sched ; 
13 

14 (S delay_specif ier — Dclock) 

15 : delay enter 1 trash_parms setdel sched ; 
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Scr # 25 

\ functions has063091 
1. 

2 (S sender — flag) \ true if msg not from interrupt (ixmit) 

3 : ?~ix_msg tstate @ [ delbt not ] literal <> ; 
4 

5 (S sender — ) \ ADA end of critical section 

6 : release enter 1 trash_parms dup ?~ix_msg if #call_ok 

7 over tpush then tstate endobt swap reset sched ; 
8 

9 (S rcvr_specif ier — ) 

10 : busy 

11 enter 1 trash_parms ['] set refus sr_all_rcvr sched ; 
12 

13 : unbusy 

14 enter 1 trash_parms ['] reset refus sr_all_rcvr sched ; 
15 



Scr 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
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2 
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11 
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# 26 
\ Ixmit 
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(S entry_# dest_task Smsg — status) \ send msg frm interrupt 
: ixmit >r 2dup swap r#>ra dup ? refused 

if r> 2drop 2drop #refused 

else rot r@ dest_rcvr ! ( dest_rcvr) 

swap r@ dest ! ( dest) r@ 

[ tstate mlink - ] literal - r@ 

sender ! ( pseudo-sender) r> m_link #call_ok then ; 

\S Message structure: link, dest, dest_rcvr#, 

pseudo_sender, data... mlink is set 

to -1 and -delbt (fffb) when rec'd. When released 

endobt is cleared ( fff 9) . 

The sender field is set so that the 

mlink field appears as tstat 



# 27 

\ break has062991 
(S up — up f) 

: ?breakable dup dup usp @ mdata - mlink @ 1+ swap 
tstate @ endobt delbt logic and 0<> ; 

(S up | false — up' | false) 
: >dest 

dup if ?breakable swap usp mdata - dest & and then ; 
(S up — up ' | false) 

: bchase dup dup >r begin over >dest 2dup <> dup 
if drop rot drop false -rot over r> link @ dup >r <> 
over and then while rot drop swap 
repeat 2drop r> drop ; 



ppad (S — addr) 



dp @ 80 + 



ber arithmetic routines may 
prove useful in other appli- 
cations. [See Figure One on 
page 7 J 

— Philp Preston 

One-Screen 
Full-Screen Editor 

Our company, M.A.S.S., 
operates as a bespoke soft- 
ware house working with a 
wide variety of projects, 90% 
of which are now Forth 
based. 

Between jobs, I get in- 
volved in what can loosely 
be called R&D. This can range 
from developing software 
tools (tinkering with Forth), 
looking at ways to improve 
efficiency (making a case for 
the latest hardware), and 
exploring software techni- 
ques (playing games). 

Seriously, though, we 
started to move over to Forth 
in about 1985, after studying 
the language (during R&D) 
and comparing it to the lan- 
guages used at the time, i.e., 
BASIC, Pascal, and assem- 
bler. The benefits gained 
came slowly, at first, but then 
at an accelerating rate as 
experience was gained and 
the various "pennies drop- 
ped." 

We tried several commer- 
cial versions of Forth, with 
varying levels of success, 
before developinghomegrown 
versions. This gives us abso- 
lute control to customize as 
required. Forth makes you 
greedy! 

One of the many benefits 
Forth gives us is the ability to 
very quickly produce proto- 
types. While our competi- 
tors are busy drawing up 
impressive-looking flowcharts 
and "tecspecs," we are dem- 
onstrating some sort of pro- 
totype to which the client 



Forth Dimensions 



33 



September 1991 October 



Scr # 28 

\ has063091 

1 \ Break a task deadlock 

2 (S up_to_resume — flag, true if broken) 

3 : break dup bchase ?dup if 

4 over cancel_msg 

5 usp @ [ dest_rcvr mdata - ] literal + @ over tpush 

6 #broken over tpush 

7 tstate endobt swap reset true else drop false then ; 
8 

9 (S — ) 

10 : dedlok upO @ dup >r begin dup break drop link @ dup 

11 r@ = until r> 2drop ; 
12 

13 
14 
15 



usually can relate. This has 
worked very well for us. (As 
a point of interest, we have 
had over 12,000 Forth appli- 
cations distributed world wide.) 

Another R&D session 
looked long and hard at C. I 
obviously missed something. 
All that syntax! 

Yet another period of 
R&D produced the one-page 
full-screen editor. We were 
working on text manipula- 
tion at the time, so I lifted 
some of the code and worked 
on minimizing it. 

I would not have believed 
that any sort of screen editor 
would have fit into IK of 
source code — "packed jum- 
ble" or not — especially as 
the editing facilities offered 
are quite respectable. The 
average words per definition 
worked out to fewer than 
six, and only an improve- 
ment to the word TYPE 
makes any significant impro- 
vement to performance. 

I found the competition a 
worthwhile exercise and, 
indeed, have imposed the 
one-screen restriction on 
several pieces of code since. 
This approach forces a re- 
think and a re-work of just 
about every word used. Per- 
haps Gordon Charlton has 
unwittingly opened up a 
whole new programming 
technique? I cannot, how- 
ever, recommend the regu- 
lar use of the style used in my 
example! [See Figure Two on 
page 36 J 

— Mike Lake 

PDE Erratum 

Dear Mr. Ouverson, 

In my article on PDE 
screen management ("Add 
and Delete Screens in PDE," 

(Continued on page 3 7.) 



(Editorial, from page 4.) 

Forth (50%) 
Program design 
Stack operations 
Postfix notation 
Forth compilation (defi- 
nitions, conditionals, 
loops) 

Number types and op- 
erations 

Constants, variables, arrays 
Dictionary structures 
I/O operations 
Control structures 

3. Forth Programming (20%) 

4. Forth and Professional 
English (10%) 

Conscientious 
Computing 

Omni magazine's May 
1991 issue contains a guide 
to energy-efficient behavior, 
something many techno- 
philes appreciate as a kind of 
self-preservation. Among 
their suggestions related to 
office work: use machines 
with controls that keep them 
from running at full power 
during work lulls; save your 
laser printers for output that 
demands their quality output 
(they require ten times as 
much energy as other print- 
ers); use a fax without a 



thermal print mechanism; use 
laptop computers, which are 
more efficient than desktop 
models; use smaller screens; 
use recycled paper; and 
carpool or, better yet (take 
my wordforit), telecommute. 
For quantity reprints of 



the complete Omni Energy 
Efficiency Guide, write to 
Omni Energy Guide, 1965 
Broadway, New York, NY 
10023. 

— Mariin Ouverson 
Editor 



eForth Implementations 

2104 eForth Model and 8086 Implementation, 
Bill Muench and C.H. Ting— $25.00 

2105 8051 eForth, C.H. Ting— $25.00 

2107 68000 eForth, Richard H. Haskell— $25.00 

2108 32-Bit 8086 eForth, R. VanNorman— $25.00 

2109 Z80 eForth, Ken Chen— $25.00 

21 10 Subrouitne Threaded eForth for 68K, 68HC1 1 
and 8086, Richard Haskell— $25.00 

New F-PC Releases 

2102 F-PC V3.55 and TCOM, Tom Zimmer— $25.00 

2106 The Forth Course, Richard H. Haskell— $25.00 

2111 F-PC User Contributions, 80 files— $25.00 

Others 

1002 Forth Notebook, C.H. Ting— $25.00 

1003 Inside F83, C.H. Ting, 3rd Edition— $25.00 
1011 Forth Notebook, Volume 2, C.H. Ting— $25.00 

2103 LaForth, LaFarr Stuart and R. L. Smith— $25.00 
4004 Indeiko RTX2001A Kit— $150.00 

4008 RTX2001AJC-8 Chip— $68.00 

4113 More on Forth Engines, Volume 14 — $15.00 

9006 Neural Computing Module NCM3232— $85.00 

Offete Enterprises, 1306 South B Street 
San Mateo, CA 94402 (415) 574-8250 
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BACK IN PRINT! 



THINKING 

FORTH 

A Language and Philosophy for 
Solving Problems 

BY LEO BRODIE 



SEE FIG MAIL ORDER FORM IN THIS ISSUE! 



Attention Forth Authors! 

to recognize and reward authors of forth-rela ted articles, the forth interest group has adopted the author recognition program. 



Articles 

The author of any Forth-related article published in a 
periodical or in the proceedings of a non-Forth conference 
is awarded one year's membership in the Forth Interest 
Group, subject to these conditions: 

a. The membership awarded is for the membership year 
following the one during which the article was 
published. 

b. Only one membership per person is awarded in any 
year, regardless of the number of articles the person 
published in that year. 

c. The article's length must be one page or more in the 
. magazine in which it appeared. 

d. The author must submit the printed article (photo- 
copies are accepted) to the Forth Interest Group, 
including identification of the magazine and issue in 
which it appeared, within sixty days of publication. In 
return, the author will be sent a coupon good for the 
following year's membership. 

e. If the original article was published in a language other 
than English, the article must be accompanied by an 
Engish translation or summary. 



Letters to the Editor 

Letters to the editor are, in effect, short articles, and so 
deserve recognition. The author of a Forth-related letter to 
an editor published in any magazine except Forth Dim- 
ensions is awarded $10 credit toward FIG membership 
dues, subject to these conditions: 

a. The credit applies only to membership dues for the 
membership year following the one in which the 
letter was published. 

b. The maximum award in any year to one person will 
not exceed the full cost of the FIG membership dues 
for the following year. 

c. The author must submit to the Forth Interest Group 
a photocopy of the printed letter, including identifi- 
cation of the magazine and issue in which it appeared, 
within sixty days of publication. A coupon worth $ 10 
toward the following year's membership will then be 
sent to the author. 

d. If the original letter was published in a language 
other than English, the letter must be accompanied 
by an English translation or summary. 
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Figure Two. One-screen full-screen editor. 



ONE SCREEN FULL SCREEN EDITOR Mike Lake 

VARIABLE KT 512 ALLOT : Y R# @ C/L / ; : X R# (3 C/L MOD ; 

: RANGE OVER + DUP 0< OVER 1023 > OR 0= IF SWAP THEN DROP ; 

: MOV R# @ SWAP RANGE R# ! ; : LEFT -1 MOV ; : RIGHT 1 MOV ; 

: UP -64 MOV ; : DOWN C/L MOV ; : HOME R# ! ; : >E C/L X - ; 

: L0 SCR @ (LINE) ; : AD L0 DROP R# @ + ; : LAD Y L0 ; 

: Y.L OVER AT L0 TYPE ; : . L Y Y.L ; : CEOL AD > E BLANKS . L ; 

: .ED 16 DO I Y.L LOOP CR SCR ? ; : CRLF X MINUS R# +! DOWN ; 

: CL LAD BLANKS . L ; : >S UPDATE SCR +! .ED ; : N 1 >S ; 

: PUT LAD PAD SWAP CMOVE ; : !SCR HOME AD 1024 BLANKS .ED ; 

: GET PAD LAD CMOVE . L ; : TOGG KT 1 TOGGLE ; : P -1 >S ; 

: CLR BL AD >E 1- 2DUP OVER 1+ ROT ROT CMOVE + C! . L ; 

: !K DUP AD KT @ IF DUP DUP 1+ >E 1- -CMOVE C! . L ELSE C! DUP 

EMIT THEN RIGHT ; : DEL LEFT CLR ; : UNDO EMPTY-BUFFERS .ED ; 

: SET CFA SWAP 2* KT + 2+ ! ; : SETS 256 DO I ' !K SET LOOP ; 

: GO BEGIN X Y AT KEY DUP 2* KT + 2+ @ EXECUTE 0< UNTIL ; SETS 

: ED FLUSH SCR ! HOME .ED GO UPDATE ; : TAB 8 X OVER MOD - MOV ; 

CORE WORDS 



KT ( ...ADDR) FIRST 2 BYTES=FLAG 256*2 BYTES FOR KEY ACTIONS 

X ( ...N) X POSITION OF CURSOR 

Y ( ...N) Y POSITION OF CURSOR 

RANGE ( CURSOR N ...CURSOR) LEAVES CURSOR+N OR ORIGINAL CURSOR POS 

MOV ( N . . . ) MOVES CURSOR BY N 

>E ( ...N) CHARACTERS FROM CURSOR TO END OF LINE 

L0 ( N...ADDR C/L) ADDRESS OF START OF EDITING LINE N 

AD ( ...ADDR) ADDRESS OF CURSOR 

LAD ( ...ADDR C/L) ADDRESS OF START OF CURRENT LINE 

Y.L ( N . . . ) LOCATE AND PRINT LINE N 

. L (...) PRINT CURRENT LINE 

•ED ( ...) PRINT EDITING SCREEN 

>S ( N ...) MOVE ON N SCREENS 

GO (...) MAIN KEY LOOP ; 

ED ( N ...) INVOKES EDITOR USING SCREEN N 

SET ( N PFA . . . ) SET KEY N TO PERFORM WORD ACTION 

USE AS IN. . . 13' CRLF SET 

SETS ( ...) SETS ALL KEYS TO DEFAULT.. (STORE KEY PRESS) 

WORDS TO ASSIGN TO REQUIRED KEY PRESS 

CLR ************************** = CLEAR CHARACTER UNDER CURSOR 

DEL * ALL THESE WORDS ARE * = CLEAR CHARACTER TO LEFT OF CURSOR 

CEOL * ASSIGNED TO KEYPRESSES.* = CLEAR FROM CURSOR TO END OF LINE 

CL * ADDING EXTRA ACTIONS * = CLEAR LINE 

!SCR * IS A DODDLE. A NEW * = CLEAR EDITING SCREEN 

UNDO * ACTION HAS THE KEY * = RESTORE EDITING SCREEN TO ORIGINAL 

N * AVAILABLE ON THE STACK * = NEXT SCREEN 

P * AND MUST LEAVE A VALUE * = PREVIOUS SCREEN 

PUT * ON THE STACK. A MINUS * = PUT CURRENT LINE TO PAD 

GET * VALUE SIGNALS TO * = GET CURRENT LINE FROM PAD 

TOGG * EXIT THE EDITOR. * = TOGGLE INSERT/OVERWRITE MODES 

!K * ************************ = STORE KEY PRESS (DEFAULT ACTION) 

MINUS = FORTH WORD USED TO EXIT EDITOR 

LEFT RIGHT UP DOWN HOME CRLF TAB = MOVE CURSOR 

INSTRUCTIONS .. THE ABOVE EXPECTS THE FOLLOWING COMMON FORTH WORDS. 
-CMOVE ( ADD1 ADD2 COUNT ...) AS CMOVE BUT FROM HIGH TO LOW MEMORY. 

AT ( X Y ...) LOCATE CURSOR AT X Y. 



LOAD THE SCREEN AND ASSIGN ACTIONS TO THE REQUIRED KEY PRESSES. 
13 ' CRLF SET 8 ' TAB SET 27 ' MINUS SET ETC. 

THE CONFINES OF ONE SCREEN RESULTS IN THE PACKED JUMBLE ABOVE 
HOWEVER DEFINITIONS ARE VERY SMALL AND EASY TO FOLLOW. 
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$ Contest Announcement $ 

Call for Papers! 



Forth Dimensions is sponsoring a contest 
to encourage authors of articles 
about Forth and 
"Object-Oriented Programming" 

1st prize: $500 
2nd prize: $250 
3rd prize: $100 

Deadline: September 16, 1991 
See editorial in issue XI 1 1/1 for details! 



(Letters, from page 34.) 

FDXUl/V), I supplied words 
that would enter the PDE 
editor automatically if a load 
error occurred — (ERROR) , 
(WHERE) , etc. onscreen 11. 
At the time, I thought these 
words crashproof. I spoke 
too soon. Since then, I've 
discovered a rather obscure 
bug that will crash the sys- 
tem like a fireworks display. 

This happens when you 
first load Forth from the CP/M 
or DOS command line and 
decide to provide as an ar- 
gument a filename for Forth 
to open. Should you mis- 
spell the filename or give 
one that does not exist, an 
open-file error occurs, the 
PDE editor is entered, and 
crash. 

Yet the same open error 
done from the Forth com- 
mand line results in the ex- 
pected error message and no 
problems. 

The trouble starts back 
when you take the pristine 
Kernel83 and add the exten- 
sions and assembler. As a 
kindness, the load screen 
ends by doing the SAVE- 
SYSTEM for you. Because of 
this, the variable BLK is saved 
as having a value of one, as 
this is the load screen num- 
ber. 

When you first load in 
Forth, I found that the boot 
routine is providedby START, 
which in turn calls DEFAULT. 
DEFAULT searches CP/M's 
DMA (on my computer) for 
a filename to open. Nor- 
mally, this happens smoothly, 
and the sequence exits 
through QUIT. But in an open 
file error, it exits through 
ERROR. Unfortunately, no- 
where is BLK reset to zero 
beforehand. Now (ERROR) 

Forth Dimensions 



in my PDE uses a non-zero 
blk as a flag that the error 
occurred during a load, so it 
enters the editor. This causes 
the system to crash. 

However, in setting up 
the Forth command line, 
QUIT early on resets BLK to 
zero, so an error there dis- 
plays the error message nor- 
mally. 

You can solve the prob- 
lem at several levels. 

1. Simplest is to redo the 
SAVE-SYSTEM from the 
Forth command line. This 
ensures that BLK is zero. 

2. You can rewrite START 
to include BLK ! before 
calling DEFAULT. It's easy to 
patch in, as BOOT is a de- 
ferred word. Then, future 
additions to the program 
using this load screen to save 
the system won't cause 
problems. 

3. Ultimately, correcting 
DEFAULT to reset BLK and 
recompiling would guaran- 
tee that this gremlin won't 
return to haunt you. 

Yours truly, 

Walter J. Rottenkolber 

P.O. Box 936 

Visalia, California 93279 

Answer to a Dream 

Dear Sir, 

In answer to John G. 
Derrickson's letter request- 
ing a low-cost, better Forth 
("Dreaming That It's Forth," 
FD XIII/2), I would like to 
recommend Upper Deck 
Forth, available from Upper 
Deck Systems (P.O. Box 
263342, Escondido, Califor- 
nia 92026). 

I have found it to be 
exceptionally fast and easy 
to use. It is a text-based sys- 
tem and incorporates such 



features as mouse control for 
the full-screen editor, direct 
access to DOS functions from 
the terminal input stream, 
full memory usage, disas- 



sembler, assembler, and 
support for generating 
headerless, turnkey applica- 
tions. 

The only difficulty I en- 
countered when using Up- 
per Deck was while writing 
an assembler interrupt rou- 
tine that required absolute 
addressing. The dynamic 
memory allocation readjusted 
segment and offset addresses 
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during compilation, so de- 
termination of the exact lo- 
cation of the interrupt rou- 
tine was made more difficult. 
This was solved by readjust- 



ing the code within the inter- 
rupt routine after compiling. 

I highly recommend this 
MS-DOS Forth system. 

Sincerely, 

Glen F. Ingle 

1585 Samedra Street 

Sunnyvale, California 94087 
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I would not have believed 

that any sort of screen editor 
would have fit into 
iK of source code. 



News from the on-line Forth RoundTable 




In the February column I 
promised not to delay so 
long between recaps of guest 
conferences. Before making 
good on that promise, I want 
to call your attention to the 
improved appearance of the 
GEnie Forth RoundTable. 
Topics and entire categories 
are much cleaner. The rat's 
nests of messages, many of 
which my ForthNet message 
ports created, are largely 
gone. All this can be attrib- 
uted to our newest SysOp, 
Elliott Chapin. Elliott came 
on board knowing he would 
have to pick up after the 
likes of me, so he is either 
one heck of a good guy or a 
glutton for thankless jobs. I 
happen to believe the "nice 
guy" theory will stand the 
test of time. 

Here, in his own words, 
is Elliott's introduction: "I was 
born in 1942 in New York 
City, just five days before my 
better known half-nephew 
Harry. A couple of years later, 
my father James Chapin, an 
established artist, moved the 
family out to rural northwest 
New Jersey. Now I have a 
family of my own in Toronto. 
I studied math at Princeton 
(starting my acquaintance 
with computers there) and 
Columbia in the 60s. Since 
then, I have found various 
kinds of work in the arts and 
education, but I also drive a 
taxi when necessary. I am 
enjoying the learning oppor- 
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tunities available on the 
GEnie's Forth RoundTable, 
while doing "slash and stash" 
messagebase edits as the 
latest assistant SysOp. " (Note: 
ELLIOTT. C is Elliott's e-mail 
address.) 

Welcome to the funhouse, 
Elliott. 

* * * 

It is true that revisits with 
our guests in this column 
never capture the intimacy 
of the Real-Time Conference 
where you pose the ques- 
tion, usually sparked by an- 
other comment, but they do 
serve to remind attendees of 
poignant exchanges and to 
let non-participants know 
what they missed. Transcripts 
of the complete conferences 
are archived in the GEnie 
Forth RoundTable's Software 
Library 1 . Please make a note, 
as you scan this column, to 
download those you find of 
value, because the confer- 
ences as presented in this 
column are reduced to the 
guests' opening remarks. 

Guest conferences review- 
ed here include Jef Raskin, 
"What Happened to the Cat T\ 
AlanFurman, "ACMSIGForth 
Update"; Bill Muench, "Em- 
bedded with eForth"; Guy 
Kelly, "Forth and Industry"; 
Dean Sanderson, "Address- 
ing Management Concerns" 
(regarding use of Forth); Roy 
Martens and Glen Haydon, 
"MVP is Alive and, well..."; 
Charles Johnsen, "Mutable 



Instruction Set Computers." 

Jef Raskin, creator of the Mac 
and Canon Cat, asked "What 
happened to the Cat?" in 
reference to the marketing 
failureofthe Canon Cat. This 
initial discussion rapidly 
gave way to a more thorough 
look at what the interface 
between computer and man 
should be — certainly an 
area, it can be safely argued, 
in which Jef Raskin is one of 
the ranking authorities, if not 
the authority. 10/1 7/90 

Jef Raskin: I am pleased to be 
here, and I think that it might 
be best to just start with 
questions. When I see the 
directions the questions take, 
I can make more extended 
comments. 

Cool CAT J AX: First I were a 
Programmer. . . Now I am a 
Project Engineer. . . Jef, how 
long do I have to wait before 
I start having Ideas? :-) 

Jef Raskin: Thank you Mr. 
Cat. My real interest these 
days is in interfaces. For ex- 
ample, windows are dumb, 
icons wrong, and mouses a 
nuisance. 

Dennis Ruffer Sticking to that 
"heresy," let me ask how/ 
why did you start the Mac 
project? 

Jef Raskin: I can't stand the 
usual hand-to-mouse exist- 
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ence. The real question is 
why we have to bother with 
all those "features" when we 
are trying to get something 
done. I started the Mac project 
in 1979. I have learned 
something in the intervening 
decade. In those days I was 
(correctly, I think) inspired 
by the work at PARC. But 
one mustn't confuse "better" 
with "good" The Mac was 
better, but one can go a lot 
better. 

Wil Baden: Please tell us what 
you think happened to the 
CAT. 

Jef Raskin- It was, I have been 
told, a victim of internecine 
warfare within Canon and a 
lack of marketing support. I 
am sure of the second hypoth- 
esis. 

Gary Smith: There was ex- 
citement here after John 
Bumgarner was in confer- 
ence with Steve Roberts 
about the possibility of a 
portable, personal Forth 
laptop then bingo/the CAT is 
on sale in Service Merchan- 
dise. That's a lot of smoke 
and mirrors. Any further 
comment? 

Jef Raskin: They are, by the 
way, still available. A guy, 
David Wing, in San Diego 
has kept track of them. Canon 
did not know what it had, 
and tried to sell it through its 
electronic typewriter division. 
This was a mistake. Then 
they tried selling it for twice 
the design price. That was a 
mistake. We did make some 
prototype portables, I have 
one here and it works (and 
runs Forth), but our Vulture 
Capitalists had lost their 
stomachs (and minds). 

Dr. Alan Furman, indepen- 
dent software and electron- 
ics consultant, presented an 
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update on a sister organiza- 
tion, SIGForth ACM. As a 
principle of this group 's gen- 
esis, Dr. Furman was more 
than qualified to do so. 
11/15/90 

I should begin by acknow- 
ledging the tremendous 
contribution of George Shaw, 
who has been the driving 
force in SIGForth from the 
beginning. My main role was 
as a crusader, in late 1988, for 
some kind of organization 
that would specialize in pro- 
fessional issues and the com- 
mercialization of Forth. FIG's 
constituency is a mixture of 
professionals and hobbyists. 
And many of those profes- 
sionals didn't care who ad- 
mired Forth; they were in a 
position of having discretion 
over programming language. 
Whenever you have a group 
of people together, you have 
to stick to things that they are 
all interested in at the same 
time, which in FIG's case is 
Forth technology and shar- 
ing of ideas. 

I will close with some 
exciting news. The Forth 
community in Leningrad 
would like to put on a con- 
ference either Fall 1991 or 
Spring 1992, which will be 
run in cooperation with 
SIGForth. 

Bill Muench, president of 
Ontologic and coauthor of 
eForth, discussed eForth, the 
. asm Forth kernel for the 90s . 
12/13/90 

eFORTH is derived from 
my commercial version 
bFORTH. Both are ANS Forth 
subsets. I designed eFORTH 
for ease of implementing new 
systems, to easily fit in 8K 
bytes, to have a minimum of 
machine code and some 
debugging tools. My debug 
tools are TX!, the transmit 
primitive, .S, DUMP, and WORDS. 
I use a simple metacompiler 
rather than MASM, which 
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means I first write an assem- 
bler. That is how I get to 
know the processor. 

After the new system is 
running, I optimize it, first 
loading the assembler, then 
new code words. When 
working, they are added to 
the kernel, repeat 'til done. 

I use my host file server, 
bHOST, to upload source 
text files to the target system. 
MASM was chosen by Dr. 
C.H. Ting as a vehicle to 
communicate eFORTH. It is 
commonly available and on 
a widely used platform, the 
PC. But any assembler will 
do. Possible alternatives are 
spreadsheets or word pro- 
cessors with macros. 

Guy Kelly expanded on his 
November 1990 FORML 
theme, "Forth in Industry." 
Guyhasavast array of Forth- 
driven industrial projects to 
his credit to support h is views 
that Forth is an excellent 
platform for such endeavors. 
1/17/91 

Experiences as a Forth 
producer, user, and teacher 
convince me that it's almost 
impossible to get a profes- 
sional programmer to use 
Forth and almost impossible 
to discourage a professional 
engineer from using Forth. 

Now that Laxen, Perry, 
and Zimmer have handled 
the "high end" and Dr. Ting 
is attacking the "low end," 
how about the "Forth as a 
hardware development tool" 
area? 

Dean Sanderson, software 
engineer with FORTH Inc., 
discussed "Addressing Man- 
agement Concerns over use 
of Forth as an Applications 
Platform." 2/21/91 

Because of the power that 
Forth has given us (to keep 
projects small and quick), 
we have been able to avoid 
learning what others have 
had to about software devel- 



opment. Those who have 
grown up with Forth do 
management by intuition. We 
have trouble communicat- 
ing with those who've been 
successful using Fortran, C, 
or assembler. It's as if we 
speak different languages. As 
projects escalate, we find we 
have not killed the dragon, 
only maimed him. As we 
ready for battle, we find our 
pride has left us with few 
new weapons. 

For Forth to survive as a 
respected language, it must 
prove its adaptability and 
change enough to support 
the concerns of management 
These include: Integration, 
Maintenance, Documenta- 
tion, Declining cost, Q.A., 
Configuration, and Schedul- 
ing. 

Though we've started late, 
we can survive by capitaliz- 
ing on what others have 
learned. 

This conference's invited co- 
guests were Roy Martens, 
president of Mountain View 
Press, with Glen Haydon, 
author of MVP Forth. Glen 
discussed the fate of MVP in 
the 1990s market. 3/4/91 

Thank you for inviting 
Mountain View Press. We 
are alive, but changes are in 
store. Roy has sold his home 
and is moving to San Fran- 
cisco. He is taking an apart- 
ment April 1 . We have agreed 
for me to take over Mountain 
View Press. As some of you 
know, Phil Koopman, has 
taken a new job which re- 
quires him to divest himself 
of WISC Technologies. Epsi- 
lon Lyra is my company. I am 
bringing WISC Technologies 
in as a division. Roy and I 
agree to doing the same with 
Mountain View Press. 

I plan on carrying the 
public-domain versions of 
Forth which I included in my 
new edition of All About 
Forth: fig-FORTH, MVP- 
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FORTH, F83, and F-PC. I will 
also carry available documen- 
tation. 

We will also carry profes- 
sional implementations from 
vendors who will make ap- 
propriate distributor's agree- 
ments. For the present, we 
will keep the same mailing 
address and phone numbers. 
We look forward to continu- 
ing our support of Forth us- 
ers. 

Charles Johnsen, President of 
MISC, Inc. (Mutable Instruc- 
tion Set Computer, formerly 
Minimum Instruction Set 
Computer) was our invited 
guest. Charles was joined by 
Dr. David Fox, MISC's Soft- 
ware Engineer as the two 
discussed this new silicon 
engine. 4/18/91 

Thanks for the welcome. 
I wanted to speak about the 
Silicon Palimpsest this 
evening. That is the proces- 
sor without a fixed instruc- 
tion set. MISC originally stood 
for Minimum Instruction Set 
Computer. It was a tiny 
company (and still is), set up 
to create a Forth stack engine. 

We wanted to do some- 
thing different from Novix. 
We wanted a processor for 
embedded control, not 
desktop computing. That 
guided our efforts and our 
business. Today we have 
changed our name to Mutable 
Instruction Set Computer, 
Inc., because we have an 
even better idea. By using 
FPGA (field-programmable 
gate arrays), we believe we 
can create a processor with a 
mutable instruction set. The 
advantage of a mutable in- 
struction set is that custom 
instructions can be designed 
for improved performance. 

— Gary Smith 
GARY-S on GEnie 
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Forth resources & contact information 



Please send updates, corrections, additional listings, and suggestions to the Editor. 



Forth Interest Group 




The Forth Interest Group serves both expert and 


novice members with its network of chapters, Forth 


Dimensions, mail-order services, and on-line activities. 


For membership information, or to reserve advertising 


space, contact the administrative offices: 


Forth Interest Group 




P.O. Box 8231 




San Jose, California 95155 


408-277-0668 




Fax: 408-286-8988 




Board of Directors 


Founding Directors 


John Hall, President 


William Ragsdale 


C.H. Ting, Vice-President 


Kim Harris 


Mike Elola, Secretary 


Dave Boulton 


Dennis Ruffer, Treasurer 


Dave Kilbridge 


Wil Baden 




Jack Brown 




David Petty 




Dennis Ruffer 





In Recognition 



Recognition is offered an- 
nually to a person who has 
made an outstanding con- 
tribution in support of Forth 
and the Forth Interest 
Group. The individual is 
nominated and selected by 
previous recipients of the 
"FIGGY." Each receives an 
engraved award, and is 
named on a plaque in the 
administrative offices. 



1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

1989 Jan Shepherd 

1990 Gary Smith 



ANS Forth 




The following members of the ANS X3J14 Forth Stan- 


dard Committee are available to personally carry your 


proposals and concerns to the committee. Please feel 


free to call or write to them directly: 


Gary Betts 


Charles Keane 


Unisyn 


Performance Pkgs., Inc. 


301 Main, penthouse #2 51 5 Fourth Avenue 


Longmont, CO 80501 Watervleit, NY 12189-3703 


303-924-9193 


518-274-4774 


Mike Nemeth 


George Shaw 


CSC 


Shaw Laboratories 


10025 Locust St. 


P.O. Box 3471 


Glenndale, MD 20769 Hayward, CA 94540-3471 


301-286-8313 


415-276-5953 


Andrew Kobziar 


David C. Petty 


NCR 


Digitel 


Medical Systems Group 125 Cambridge Park Dr. 


950 Danby Rd. 


Cambridge, MA 02140-2311 


Ithaca, NY 14850 




607-273-5310 




Elizabeth D. Rather 


FORTH, Inc. 




Ill N. Sepulveda Blvd., 


suite 300 




Manhattan Beach, CA 90266 


213-372-8493 





Forth Instruction 



Los Angeles — Introductory and intermediate three-day 
intensive courses in Forth programming are offered 
monthly by Laboratory Microsystems. These hands-on 
courses are designed for engineers and programmers 
who need to become proficient in Forth in the least 
amount of time. Telephone 213-306-7412. 
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On-Line Resources 




To communicate with these systems, set your modem and 


• Real-Time Control Forth 


International Forth BBS's 


communication software to 300/1200/2400 baud with eight 


Board 


• Melbourne FIG Chapter 


bits, no parity, and one stop bit, unless noted otherwise. GEnie 


303-278-0364 


{SJOJ oUy-l/o/ in 


requires local echo. 




StarLink node 2584 on 


Australia 




TymNet 


jC 1 9 o/\r\ 1 -70-7 

61-3-809-1787 


GEnie 


CompuServe 


PC-Pursuit node coden 


international 


For information, 


For information, 


on TeleNet 




call 800-638-9636 


call 800-848-8990 


SysOp: Jack Woehr 


• Forth RoundTable 


• Creative Solutions Conf. 


• rortn BBb JhlJl 


(ForthNet*) 


Type !Go FORTH 




Paris, France 


Call GEnie local node, 


SysOps: Don Colburn, 


\jioer r otto -specific ddj 5 


32 A'i K K 

00 00 'io 


then 


Zach Zachariah, Ward 


• Laboratory Microsystems, 


7 data bits, 1 stop, even 


type M710 or FORTH 


McFarland, Jon Bryan, 


Inc. 


parity 


SysOps: 


Greg Guerin, John 


213-306-3530 


Dennis Ruffer 


Baxter, John Jeppson 


StarLink node 91»4 on 


• Max BtSb {borttoNevj 


(D.RUFFER), 




1 ymlNet 


United Kingdom 


Scott Squires 


• Computer Language 


PC-Pursuit node calan 


0905 75415/ 


(S.W.SQUIRES), 


Magazine Conference 


on TeleNet 


SysOp: Jon Brooks 


Leonard Morgenstern 


Type !Go CLM 


SysOp: Ray Duncan 


(NMORGENSTERN), 


SysOps: Jim Kyle, Jeff 


• Sky Port {ForthNet') 


Gary Smith (GARY-S) 


Brenton, Chip 


• Knowledge-Based 


United Kingdom 




Rabinowitz, Regina Starr 


Systems 


44-1-294-1006 


• MACH2 RoundTable 


Ridley 


Supports Fifth 


SysOp: Andy Brimson 


Type M450 or MACH2 




409-696-7055 




Palo Alto Shipping 






• SweFIG 


Company 


Unix BBS's with forth. conf 


• Druma Forth Board 


Per Aim Sweden 


SysOp: 


(ForthNet* and reachable via 


512-323-2402 


46-8-7 1 -35751 


Waymen Askey 


StarLink node 9533 on TymNet 


StarLink node 1306 on 




(D.MILEY) 


and PC-Pursuit node casfa on 


TymNet 


• NEXUS Servicios de 




TeleNet.) 


SysOps: S. Suresh, James 


Inrormacion, S. L. 




• WELL Forth conference 


Martin, Anne Moore 


Iravesera de Dait, IIh-iUo, 


BIX (ByteNet) 


Access WELL via 


bntio. 4—5 


For information, 


CompuserveNet 




08024 Barcelona, Spain 


call 800-227-2983 


or 415-332-6106 


Non-Forth-speciftc BBSs with 


+ 34 3 2103355 (voice) 


• Forth Conference 


Fairwitness: 


extensive Forth libraries 


+ 34 3 2147262 (modem) 


Access BIX via TymNet, 


Jack Woehr (jax) 


• DataBit 


SysOps: Jesus 


then type j forth 




Alexandria, VA 


Consuegra, Juanma 


Type FORTH at the 




703-719-9648 


Barranquero 


: prompt 


PC Board BBS's devoted to Forth 


PCPursuit node dcwas 


barran@nexus.nsi.es 


SysOp: 


(ForthNet*) 


StarLink node 2262 


(preferred) 


Phil Wasson (PWASSON) 


• British Columbia Forth 


SysOp: Ken Flower 


barran@nsi.es 




Board 


barran (on BIX) 


• LMI Conference 


604-434-5886 




Type LMI at the : prompt 


SysOp: Jack Brown 






LMI products 








Host: 


• Grapevine 






Ray Duncan 


501-753-8121 to register 






(RDUNCAN) 


501-753-6859 








StarLink node 9858 








SysOp: Jim Wenzel 










This list was accurate as of August 1991. If you know another 






on-line Forth resource, please let me know so it can be 






included in this list. 1 can be reached in the following ways: 






Gary Smith 








P. 0. Drawer 7680 








Little Rock, Arkansas 72217 




'ForthNet is a virtual Forth network that links designated message 


Telephone: 501-227-7817 




bases in an attempt to provide greater information distribution 


Fax (group 3): 501-228-9374 




to the Forth users served. It is provided courtesy of the SysOps of 


GEnie (co-SysOp, Forth RT and Unix RT): GARY-S 


its various links. 




Usenet domain.: uunetlddil !lrark!glsrk!gars 
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FIG Chapters 

The Forth Interest Group Chapters listed below are currently 
registered as active with regular meetings. If your chapter 
listing is missing or incorrect, please contact Anna Brereton 
at the FIG office's Chapter Desk. This listing will be updated 
regularly in Forth Dimensions. If you would like to begin a FIG 
Chapter in your area, write for a "Chapter Kit and Applica- 
tion. " 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 



U.S.A. 

• ALABAMA 
HuntsviUe Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodiak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 

4th Thurs., 7:30 p.m. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 
(602) 381-1146 

• CALIFORNIA 

Los Angeles Chapter 

4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 

2nd Sat. 

12 noon tutorial, 1 p.m. Forth 
2055 Center St., Berkeley 
Leonard Morgenstern 
(415) 376-5241 

Orange County Chapter 

4th Wed., 7 p.m. 
Fullerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 

4th Wed., 7 p.m. 
1708-59th St., Room A 
Bob Nash 
(916) 487-2044 

San Diego Chapter 

Thursdays, 12 Noon 
Guy Kelly (619) 454-1307 



Silicon Valley Chapter 

4th Sat., 10 a.m. 
Applied Bio Systems 
Foster City 
John Hall 
(415) 535-1294 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 

1st Mon., 7 p.m. 

Clifford King (303) 693-3413 

• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 7 p.m. 
Emprise Corp., Marietta 
Don Schrader (404) 428-0811 

• ILLINOIS 

Cache Forth Chapter 

Oak Park 

Clyde W. Phillips, Jr. 
(708) 713-5365 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 
I/P Univ. Campus 
B71 Neff Hall 
Blair MacDermid 
(219) 749-2042 



• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 
Iowa State Univ. 
214 Comp. Sci. 
Rodrick Eldridge 
(515) 294-5659 

Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7782 

• MARYLAND 

MDFIG 

3rd Wed., 6:30 p.m. 
JHU/APL, Bldg. 1 
Parsons Auditorium 
Mike Nemeth 
(301) 262-8140 (eves.) 

• MASSACHUSETTS 
Boston FIG 

3rd Wed., 7 p.m. 
Bull HN 

300 Concord Rd., Billerica 
Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 

Bill Walters 
G13) 731-9660 
(313) 861-6465 (eves.) 

• MINNESOTA 
MNFIG Chapter 

Minneapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 

4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St. Louis Chapter 

1st Tues., 7 p.m. 
Thornhill Branch Library 
Robert Washam 
91 Weis Drive 
EUisville, MO 63011 

• NEW JERSEY 

New Jersey Chapter 

Rutgers Univ., Piscataway 
Nicholas G. Lordi 
(908) 932-2662 

• NEW MEXICO 
Albuquerque Chapter 

1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505) 298-3292 



• NEW YORK 
Long Island Chapter 

3rd Thurs., 7:30 p.m. 
Brookhaven National Lab 
AGS dept., 

bldg. 911, lab rm. A-202 
Irving Montanez 
(516) 282-2540 



Rochester Chapter 

Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
(716) 482-3398 

• OHIO 

Columbus FIG Chapter 

4th Tues. 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Terry Webb 
(614) 878-7241 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 p.m. 
CFC 

11 W. Monument Ave. #612 
Gary Ganger (5 13) 849-1483 

• PENNSYLVANIA 

Villanova Univ. Chapter 
1st Mon., 7:30 p.m. 
Villanova University 
Dennis Clark 
(215) 860-0700 

• TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

3rd Wed., 7 p.m. 

Sci. Appl. Int'l. Corp., 8th Fl. 

800 Oak Ridge Turnpike 

Richard Secrist (6 15) 483-7242 

• TEXAS 
Austin Chapter 

Matt Lawrence 
PO Box 180409 
Austin, TX 78718 

Dallas Chapter 

4th Thurs., 7:30 p.m. 
Texas Instruments 
13500 N. Central Expwy. 
Semiconductor Cafeteria 
Conference Room A 
Warren Bean (2 14) 480-3 115 

Houston Chapter 

3rd Mon., 7:30 p.m. 
Houston Area League of 
PC Users (HAL-PC) 
1200 Post Oak Rd. 
(Galleria area) 
Russell Harris 
(713) 461-1618 
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• AUSTRALIA 
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Vergennes 


Melbourne Chapter 


London 


Lining- 1 ang 1 ociig 


3rd Mon., 7:30 p.m. 


1st Fri., 8 p.m. 


1st Thurs., 7 p.m. 
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September 1991 October 



FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 29-December 1, 1991 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Simulation and Robotics 

Papers are invited that address relevant issues in the development and use of Forth in simulation and 
robotics. Virtual realities, robotics, and graphical user interfaces are topics of particular interest. Papers 
about other Forth topics are also welcome. 

Attendees are invited to enter a robot in a robotics contest where the robot solves a puzzle. 

Mail abstract(s) of approximately 100 words by September 1, 1991 to FORML Conference, Forth 
Interest Group, P.O. Box 8231, San Jose, CA 95155. 

Completed papers are due November 1, 1991. 

Conference Registration 

Registration fee for conference attendees includes conference registration, coffee breaks, and note-book of papers sub- 
mitted, and for everyone rooms Friday and Saturday, all meals including lunch Friday through lunch Sunday, wine and 
cheese parties Friday and Saturday nights, and use of Asilomar facilities. 

Conference attendee in double room — $350 • Non-conference guest in same room — $200 • Children under 17 years old 
in same room — $140 • Infants under 2 years old in same room — free • Conference attendee in single room — $450 
Forth Interest Group members and their guests eligible for ten percent discount on registration fees. 

Register by calling the Forth Interest Group business office at (408) 277-0668 or writing to: FORML Conference, 
Forth Interest Group, P.O. Box 8231, San Jose, CA 95155. 



FORTH 

INTEREST GROUP 

1330 South Bascom Ave.. Suite D 
San Jose, CA 95128 



